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ÖNSÖZ 


Türkiye'de bilgisayar olayı yeni olduğu halde bu alanda hızlı bir gelişme 
vardır. Avrupa'da 1980-1981 yıllarında satışa sunulan mikroprosesör tipi 
bilgisayarlar, 1983-1984 yıllarından itibaren Türkiye'de de satılmaya baş- 
lanmıştır. Bu iki üç yıllık gecikme, matbaa Avrupa'da bulunduktan 150 
yıl sonra yurdumuza geldiği düşünülürse, bilakis yurdumuzun teknoloji ko- 
nusunda nerelere geldiğini göstermesi açısından ilginçtir. Bilgisayara ilgi ge- 
nelde mühendis, doktor gibi meslek sahiplerinden, iş yerlerinden, öğretim 
görevlilerinden ve orta ve liselerde okuyan öğrencilerden gelmektedir. Ko- 
lejlerde ise ilgi ilkokul ve hatta ana okulları seviyesine kadar yayılmaktadır. 

Sayı itibariyle Commodore 64 Türkiye'de en çok bulunan bilgisayardır. 
Bunu firmaların rekabetine bağlamak mümkündür. Zira fiyatlar Türkiye'de 
İngiltere ve Almanya'dakinden çok daha düşüktür. 

Başlangıçta ilgi daha çok oyunlara ve basit basic programlarına olmakla 
beraber şimdi herkes bilgisayarın yapısı ile, makina kodu ile ilgilenmeye baş- 
lamıştır. Maalesef yurdumuzda yayın konusunda bir eksiklik mevcuttur. 
Yabancı yayınların pahalı olması ve ancak bir kaç yerde bulunması, olanak- 
İarı kısıtlamak tadır. 

Bu kitap Commodore 64 bilgisayarı ile bir süre çalışıp Basic programları- 
nı rahatlıkla yazabilenler için ikinci bir kitap olarak hazırlanmıştır. Daha 
önce yayınlamış olduğum UYGULAMALI BASİC kitabının devamı olarak 
da düşünülebilir. 


Kitabın ilk bölümü Assembiy lisasına girmemekle beraber bilgisayarımızın 
hafızasında ne var ne yok, nereye hangi değerleri yerleştirirsek faydalı işler 
yapabiliriz türünden soruları geniş ölçüde cevaplayabilecek seviyededir. Sp- 
rayt ve ses konusunda konular daha geniş ve açık olarak anlatılmıştır. Ör- 
nekler fazlalaştırılarak konular iyice incelenmiştir. 

Sprayttan farklı olarak bit modu ile grafik çizimi ve Commodore 64'ün 
zayıf olduğu alanlar incelenmiştir. Fakat şunu söylemek gerekir ki sprayt- 
larla elde edilen görüntü netliği ve ses kalitesi Commodore 64'ü sınıfında en 
üstün bilgisayar yapmaktadır. 

5. Bölümde bazı faydalı programlar bir grupta toplanmıştır. Bunlar oto- 
matik program çalıştırıcı, merge rutini, tuşlar ve joystick ile kontrol olmak 
üzere sıralanabilir. 

Matrisler özel bir konu olmakla beraber rutinlerin basic'te yazılabilmesi 
bakımından ilave edilmiştir. Bilhassa matematiksel işlem yapmak isteyenler 
için faydalı olacaktır. 

Son bölümde ise oyunlar ilave edilmiştir. Oyunlar bilgisayara program 
aktarma alışkanlığı kazandırabileceği gibi, spraytlar da seste değişiklik yap- 
ma olanağı getirmekte kısacası sizlere kendi oyununuzu yazabilmek için ge- 
reken materyeli sağlamaktadır. Her oyunun sonundaki yazılım kontrolu 
ise yazılan her satırın doğru yazılıp yazılmadığını kontrol ederek emekleri- 
nizin boşa gitmesini önlemektedir. Bu küçük rutinin yazma işlemini ne de- 
rece kolaylaştıracağına sizde tanık olacaksınız. 

Bilgisayar konusunun geniş bir halk kitlesi için bir uğraşı haline gelmesi 
bu teknolojinin yurdumuzda sanayi kolu başta olmak üzere her alana gir- 
mesini kolaylaştıracaktır. Yeni nesil ise daha şanslı olup teknolojiyi sanki 
oyun oynarmış gibi daha kolayca kavramaktadır. Bu durum ise gelecek için 
ümit vericidir. 

Bu kitabın hazırlanmasında bana destek olan eşime, ayrıca müzik bölü- 
mündeki melodilerin hazırlanmasında yardımlarını esirgemeyen Özgen 
Türk'e, programların yazıcıya aktarılmasında yardımı olan Ayhan Ünlüol 
ve yazılım kontrolu bölümlerini yazıcıya aktarmada yardım eden Engin Kı- 
hçay'a teşekkür ederim. 

Kitabımın bu baskısına makina kodu ile ilgili bir bölüm ilave ettim. Te- 
mel komutları içeren, pek çok örneği cevaplarıyla beraber açıkladım. Bil- 
gisayarın yapısıyla ilgili olan makina kodu konusunda ve makina kodu 
proğramları yazılımında faydalı olması dileğiyle. 
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1. BÖLÜM GİRİŞ 


1.0 Bilgasayarlarda Yapı: 

Mikroprosesör tipi bilgisayarlarda yapı 5 adet üniteden oluşmaktadır. 
Bunları yaptığı işlere göre kısaca sıralarsak ; 

a) Giriş (INPUT) Ünitesi: Bilgasayara programı verebilmek için gereken 
ünitedir. Program klavyeyi kullanarak verilebileceği gibi, daha önce kaset 
üzerinde ise teybi kullanarak, disk sürücü gibi diğer birimlerle de verilebilir. 
Şekilde de görüldüğü gibi hareket yalnız tek taraflıdır. 

b) Çıkış (OUTPUT) Ünitesi: Neticelerin veya yazılmış programların gön- 
derildiği ünitedir. Çıkış ünitesi bir yazıcı olabileceği gibi bir teypte olabilir. 
Bu durumda giriş ve çıkış ünitesi tek birim oluşturmaktadır. Zaten bu 
özelliğinden dolayı örneğin bir disk sürücü bilgisayarın kapasitesini arttıra- 
bilmektedir. 

c) Hafıza (MEMORY) Ünitesi: Programın ve Data'nın saklandığı üniteler 
olmaktadır. RAM, ROM, PROM, EPROM ve daha da geliştirilmiş türleri 
vardır. Mikroprosesörlerde ROM'ları bilgisayar, RAM'ları da programcı kul- 
lanır diyebiliriz. Yönetim ünitesi ile alış veriş iki yönlüdür. Yani hücrelerin- 
deki bilgiyi verirken, yenilerini de alır. 

d) Aritmetik-Mantık (A.L.U.) Ünitesi: İsminden de anlaşılacağı üzere 
dört işlem, trigonometri, karşılaştırma gibi işlemleri yapan ünitedir. Aktivi- 
te yine iki yönlüdür. | 

e) Yönetim Ünitesi (C.P.U.): Bu ünite bütün işlemleri organize eden üni- 
tedir. Bilgisayarın en önemli parçasıdır. Bozulduğu zaman tamiri oldukça 
pahalıdır. Bu ünitenin kapasitesi yani giriş-çıkış, adresleme kanalları bilgisa- 
yarın kapasitesini tayin etmektedir. Aşağıdaki şekilde üniteler arası bağımlı- 
lık gösterilmektedir. 


Şekil: 1. Bilgisayarın yapısı 


1.1. Commodore 64'te hafıza planı: 

Commodore 64'te MOS teknoloji 6510 tipi mikroprosesör kullanılmak- 
tadır. 6510'da 8 bitlik çift yönlü input-output kanalı ve 16 bitlik adresleme 
kanalı mevcuttur. Hafıza planı bilgisayarın programları hangi adrese yerleş- 
tirmesi bakımından önemlidir. 


Tablo: I Commodore 64'te hafıza planı 


Adres (Hexadecimal) Ne içiri kullanıldığı 


0000 - 0001 0-1 6510 kayıt 
0002 - 03FF 2-1023 | Hafıza başlangıcı ve işletme 
sistemince kullanılan hafıza 

Ekran için ayrılan hafıza 

Şekil (sprite) oluşturma için hafıza 
Sizin programınızın konulduğu yer. 
BASIC veya Makina lisanı program- 
ları buraya yerleştirilir. 

8 KByte'lık BASIC lisanını makina 
lisanına çeviren özel programın 
bulunduğu bölge 

Özel programlar için RAM bölgesi 
Renkli video çıkışları için VIC HI 
yongasına ayrılan bölüm 

Ses ve müzik elde etmek için kul- 
lanılan SID yongasına ait olan bö- 
lüm 

Renkler için RAM 

Giriş-çıkış kayıtları 

8 KByte'lık kernal işletim sistemi- 
ne ayrılmıştır. 


0400 - O7F7 
 07F8 - O7FF 
0800 - OFFF 


1024 - 2039 
2040 - 2047 
2048 - 40959 


A000 - BFFF 40960 - 49151 


C000 - CFFF 
D000 - DOZE 


49152 -53247 
53248 -53294 


D4000 - D7FF 54272 -55295 


D800 - DBE8 
DC00 - DFFF 
E000 - FFFF 


55296 - 56296 
56320 -57343 
57344 - 65535 


1.2 BASİC lisanında kullanılan anahtar kelimelerin açıklaması 


AND 

Bu deyim iki anlamda kullanılıyor. Bit'lerin test edilmesinde kullanılabil- 
diği gibi, ifadelerin eşitliği sağlaması halinde bir olumlu neticeye ulaşmak 
içinde kullanılır. 


Bit'lerin test işlemi 


16 bit'lik AND operasyonu ise şöyledir 


12 

AND 240 
00000000000001100 
00000000011110000 


00000000000000000 (ikili sistemde) 
0 (ondalık sistemde) 


32014 

AND 28680 
0111110100001110 
0111000000001000 


0111000000001000 (ikili sistemde) 
28688 (ondalık sistemde) 


Birden fazla ifadenin BASİC lisanında kullanılması ise; 


10 IFA-—3 AND B—15 THEN GOTO 70: REM EGER A-3 VEB->15 
ISE O ZAMAN 70 NUMARALI SATIRA GIDINIZ, YOKSA BIR 
ASAGIDAKI SATIRLA DEVAM EDINIZ. 


20 IF XANDYZ—4 THEN GOTO 80: REM EGER X POSITIF ISE VE 
Y— 4 İSE 80 NUMARALI SATIRA GIDINIZ, YOKSA BIR ASAĞI- 
DAKI SATIRA DEVAM EDINIZ. 


OR 


Bu deyim ıçin Boolean aritmetik işlemi aşağıdaki gibidir. 


X 
0 
0 
l 
! 


Tablo'dan da anlaşılacağı üzere eğer iki değerde sıfır ise netice sıfır ol- 
makta, onun dışında devamlı 1 olmaktadır. Bunu bir BASIC satırı ile göste- 
relim; 


50 IF(A—5)OR(B— 4) THEN GOTO 120: REM EGERAZ—SŞISE 
VEYA B—4 ISE O ZAMAN 120 NUMARALI SATIRA GIDINIZ 


60 K(/4z640R32:PRINTK7/ 


Daha önce değişkenlerin arkasına $ ilave edilerek dizi değişkenleri oluş- 

“ turulduğunu. biliyoruz. Eğer değişkeni © karakteri takip ederse bunun 

bir tam sayı (integer) olduğu belirlenmiş oluyor. 60 numaralı satırın ilk bö- 

lümünde K/4'ın 64 veya 32 olduğu belirtildi. Bit olarak bu değerler sırayla 

1000000 ve 100000 olduğundan OR ile elde edilen netice 1100000 olmak- 
ta yani 96 değerini taşımaktadır. Ekranda da bunu görürüz. 


SYS Adres 


Basic lisanında yazılmış bir programla makina lisanında yazılmış bir prog- 
ramı birleştirmek için en iyi yol bu komutu kullanarak yapmaktır. Makina 
Lisanında yazılmış bölüm SYS'den sonra gelen numaradaki adresle başlar. 
SYS komutu kullanıldığı zaman, oradaki makina lisanı programı RTS (alt- 
programdan geri dön) komutu ile bitmelidir. Bu komut kontrolu tekrar 
BASIC programna transfer eder. 


10 


USR (X) 


USR (X) fonksiyonu, kontrolu başlama adresi 785 ve 786 numaralı ad- 
reslerde yazılı olan makina lisanı altprogramınâ aktarır. Başlama adresinin 
alçak byte kısmı 785'de, yüksek byte kısmı ise 786 numaralı adreslerde sak- 
lanmaktadır. 

X değeri ise hesaplandıktan sonra (çünkü X bir ifade de olabilir) akümü- 
latör kanalıyla başlama adresi 97 ($ 61) olan makina lisanı programına 
aktarılmaktadır. 


POKELA 


Poke komutu | adresine A değerini yerleştirmek için kullanılmaktadır. 
IveA ondalık sistemde verilen sayılardır. Yani 1,0 ile 65535; A da Oile 
255 arasında sayılar olmalıdır. Her iki halde de değerler limitlerin dışına 
çıkarsa BASIC hata mesajı olan ILLEGAL GUANTITY, yani müsaade 
edilmeyen miktar karşımıza çıkar. 


PEEK (Adres) 


Kendisinden sonra gelen, parantez içinde verilen adresteki değerin ne | 
olduğunu görmek veya o değeri başka bir ifadede kullanmak için fayda- 
lanılan bir komuttur. 


10 PRINT PEEK (29405): REM 29405 NUMARALI ADRESTEKİI 
DEGER NEDIR, 

20 PRINT PEEK (53280) AND 15 

30 PRINTPEEK (53281) AND 15 


20 numaralı satırla 53280 numaralı adresteki ilk 4 bit'in durumunu in- 
celemiş oluyoruz. Bu adreste ekranda dikdörtgen halinde gösterilen kutu- 
nun rengine ait bilgi saklanmaktadır. 53281 numaralı adreste ise dikdört- 
genin arkasında kalan kısmın rengine ait bilgi saklıdır. 

Her iki halde de AND 15 ifadesi ilave edilmiştir. Bunun anlamı nedir? 
Az öncede belirtildiği gibi renge ait bilgiler komple byte'da değilde byte' 
ın bir bölümünde saklanmaktadır. Bu durumda 0, 1, 2, 3 numaralı bit' 
lerde saklanmaktadır. O halde bizi ilgilendiren bu 4 bit'in vereceği de- 
gerdir. Diğer bit'ler ne olursa olsun pek önemli değildir. AND deyimi pra- 
tikte nasıl görev yapıyor bir örnekle görelim. 
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PEEK (53280) AND 15 


ifadesinde 53280 numaralı adreste rastgele bir sayı olsun ve bunu ikili sis- 
temde gösterelim. 182 sayısını (ikili sistemde 10110110) örnek olarak ala- 
rak 15 safısı (ikili sistemde 1111) ile AND operasyonunu uygulayalım. 


10110110 
AND 00001111 


00000110 


Görülüyor ki netice dajma PEEK (53280) ile elde edilen sayının ilk dört 
bit'lik bölümü olmaktadır. 


1.3 Bazı faydalı POKE komutları; 


POKE 775.200 listelemeyi önlemek için kullanılır, 

POKE 775,167 Normal hale gelmek için, 

POKE 808,239 Stop tuşunu etkisiz kılmak için, 

POKE 808,237 Normal hale gelmek için, 

POKE 649,0 Klavyeyi etkisiz hale koymak için, 

POKE 649,10 (Normal hale gelmek için, 

POKE 808,255: POKE 818,32 Kayıt yapmayı ve listelemeyi önlemek 
için, 


POKE 808,237: POKE 818,237 Normal hale gelmek için, 


POKE 650,255 Klavyede herhangi bir tuşa basıldığında karakterin ek- 
randa sürekli yazılması için kullanılır. 
POKE 650,0 Normal hale gelmek için. 


1.4 Yazılan programlar nereye gidiyor? 


Klavyeyi kullanarak yazdığımız BASIC programları otomatik olarak 
2049 numaralı adresten itibaren yazılmaktadır. Bunu aşağıda yapacağımız 
işlemle görmek mümkündür. 

Önce Poke deyimi kullanarak 2048-2500 arasındaki bütün adresleri sıfıra 
eşitleyelim. Sonra şu satırı ekrana yazalım. 


10 PRINT "BUGUN HAVA KARLI" 


yazısını yazıp RETURN tuşuna basarak hafızaya gönderelim. Eğer şimdi 
PEEK deyimi kullanarak 2049-2500 arasındaki adreslere bakarsak bu adres- 
lerdeki değerlerin değiştiğini görürüz. Fakat programın yani yukarıdaki bir 
satırın nerede bittiğini bilmiyoruz. Commodore 64 Basic programlarının 
başlama ve bitiş adreslerini başka adreslerde saklamak tadır. 

Başlama adresi 43 ve 44 numaralı adreslerde, alçak değerli byte ve yük- 
sek değerli byte olarak, bitiş adresi de 45 ve 46 numaralı byte'larda yine 
alçak byte ve yüksek byte olarak saklanmaktadır. 

Adreslerdeki değerlere geçmeden önce yüksek değerli byte ve alçak de- 
gerli byte ne anlama geliyor ona bakalım: 

Adresler yazılırken heksadesimal formda $ işareti başta olmak üzere 4 ka- 
rakter halinde yazılır. Örneğin $ 1643 numaralı adresi dikkate alırsak bü 
adresin yüksek değerli byte kısmı $ 16, alçak değerli byte kısmı ise $ 43 
olmaktadır. Bunu Ş$ 1643 değerini ondalık sisteme çevirirken de görebiliriz. 


$ 1643 —1x1634 6x162 44x161 43x169 
—1x4096 4 6x256 4-4x16-4-3x1 
— 5699 


Fakat PEEK, POKE deyimleri kullanılırken heksadesimal değilde sayısal 
değerler kullanılmaktadır. $ 1643 sayısının yüksek değerli byte'ı olan $ 16" 
nın ondalık sistemdeki sayısal değeri 22 olmaktadır. Alçak değerli byte kıs- 
mının sayısal değeri ise 67'dir. 

Tekrar 10 PRINT "BUGUN HAVA KARLI" satırına dönüp, bu küçük 
programın başlama; adresini PEEK komutları ile okuyalım. 


PRINT PEEK (43) 
1 
PRINT PEEK (44) 
8 


43 numaralı adreste başlama adresinin alçak değerli bölümü vardı, ve de- 
geri Idir. 44 numaralı adreste ise yüksek değerli byte var ve değeri ise 8 
dir. Bu iki rakamdan programın başlama adresinin 256x8 4 1 2049 oldu- 
gunu hesaplayabiliriz. Yani sayısal değeri bulmak için yüksek değerli byte 
kısmı 256 ile çarpılmaktadır. Bitiş adresini de hesaplayalım; 
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PRINT PEEK (45) 
27 

PRINT PEEK (46) 
8 


45 numaralı adreste bitiş adresinin alçak değerli byte kısmı bulunduğun- 
dan adresin sayısal değeri 8x256 4-27 — 2075 olmaktadır. Demekki progra- 
mımız 2049 numaralı adreste başlayıp 2075 numaralı adreste bitmektedir. 

FOR12049 TO 2075: PRİNTI, PEEK (1): NEXT 


yazarak bu adreslerdeki değerleri tablo halinde listeleyelim. 


adres (Sayısal sayısal 

değeri adres değeri 
2062 65 
2049 25 2063 86 
2059 8 2064 65 
2051 19 2065 32 
2052 © 2066 75 
2053 153 2067 65 
2054 34 2068 82 
2055 6G 2069 76 
2056 85 2070 73 
2057 71 2071 34 
2058 85 2072 o 
29059 78 2073 O 
2069 32 2074 O 
2061 72 2075 73 


Şimdi teorik olarak, bilgisayarın fişini çekip elektriğini keserek hafızayı 
tamamen kaybettikten sonra tekrar bilgisayarı açtığımızda, tabloda belirti- 
len adreslere sayısal değerleri POKE komutuyla yerleştirirsek daha önceki 
küçük programı tekrar elde etmek mümkün olacaktır. 

Bu iş için şu küçük programı yazarak bilgisayara verelim. 
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5 POKE43,1:P0KE44,8:POKE45,27:3POKE46,8 
10 FOR 1-2049 TO 20975 

20 READ A:POKELI,A 

30 NEXT 

40 DATA 25,8,10,0,153,34,66,85 

42 DATA 71,85,78,32,72,65,86,65 

44 DATA 32,75,65,82,76,73,34 

46 DATA 0,9,0,73 


Şimdi RUN yazıp RETURN tuşuna basarak sanki daha önceki programı 
yazmış gibi olacağız. LIST edelim, ekranda 


10 PRINT "BUGUN HAVA KARLI" 
READY 


yazısı görülüyor, demek ki yapılan işlem doğrudur. 
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2. BÖLÜM KARAKTER ÜRETİMİ VE GRAFİK ÇİZİMİ 


2.0 Commodore 64'te karakter üretimi 


Klavyede görülen karakterler 256 adetlik bir set oluşturmakta ve 2 
KByte'lık (2048 bit) bir hafıza işgal etmektedir. Bunlara küçük harfleri de 
ilave edersek 4 KByte'lık hafıza karakterler için ayrılmaktadır. Karakterler 
genelde ROM tipi bellekte saklanmakta olup oradan çağrılır. Eğer tuşların 
bazılarını yeni karakterlere ayırmak isteniyorsa önce ROM'da olan seti 
RAM tipi belleğe aktarmak gerekir. Ondan sonra da istenilen bir tuşu bu 
özel karakter için ayırmak mümkün olmaktadır. Örneğin B tuşuna basıldı- 
ğında ekran da B harfi değil de Ü harfi görmek için şu şekilde bir programa 
ihtiyaç vardır. Önce karakter setini ROM'dan RAM'a aktaralım. 


,5 PRINT CHR$<142) 

19 POKE 52,48:PDKES56 ,48:CLR 

20 POKE 56334,PEEK(56334)AND254 

30 POKE1,PEEKC<1()AND251 

48 FORI-0 TO S11:POKE1*12288,PEEK<1153248):NEXT 
50 POKE1,PEEK<1)0R4 

60 POKES56334 ,PEEK (56334)0R1 

79 END 


5*nolu satır (karakter setinin büyük harflerden oluştuğunu belirtmek- 
tedir. Eğer küçük harfler isteniyorsa CHR$ (14) yazılmalıdır. 10 numaralı 
satır, karakter seti için BASIC bölümünde hafıza ayırmak için kullanılıyor, 
30 numaralı satır ise karakterleri hafızaya aktarmak için kullanılıyor. 40 
nolu satırda döngü 512 elemandan oluşmaktadır. Her karakter 8x8 bit'lik 


JA M REN > © 


yani 64 piksellik, diğer bir ifade ile 8 byte'lik bir yer tuttuğu için, 512 byte 
64 adet karakter etmektedir. Bu karakterler ve yeni adresleri tabloda veril- 
miştir. 

Yeni adresleri ise şu satırla tespit ediyoruz: 


POKE 53272,(PEEK (53272) AND 240) #12 


ROM'daki karakter setini 12288 numaralı adresten başlamak üzere 
RAM'a yerleştirmek, 53272 numaralı adresin İ, 2, 3 numaralı bit'lerini 12 
yapmakla mümkün olmaktadır. Eğer seti 14336 numaralı adresten itibaren 
yerleştirmek isteseydik 12 yerine 14 kullanacaktık; Commodore 64'ün ha- 
fıza haritasında bu şekilde bir işlem için 8 adet uygun yer bulunmaktadır. 


POKE deyimi kullanarak tablo'da verilen karakterleri daha değişik şekil- 
de tarif edebiliriz. B tuşuna basıldığında bu karakter yerine Ü elde etmek 
için B karakteri adresinin 12304 olduğunu tablodan not ederek, Ü karakte- 
rinin piksel olarak değerini bulmak gerekir. Commodore 64 her karakteri 
8 byte'lık yani 8x8 bit'lik veya 64 piksellik bir alana yerleştirmektedir. 
Dolayısıyla Ü harfini de bu şekilde tayin etmemiz gerekiyor. Aşağıdaki şe- 
kilde bunun bir örneğini görüyoruz. Harfin enini veya boyunu tayin etmek 
tamamen kendi arzumuza bağlıdır. 


Ondalık 
sistemde 
İkili Sistemde Değeri değeri 
00100100 36 
00000900 0 
01000010 66 
O 1090010 66 
O 1000010 66 
010000910 66 
O 1 000010 66 
00111100 60 
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14 
W 
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Tablo: 2. Karakterlerin kodları ve verilen RAM'daki adresleri 


Karakter Ekran kodu 


Ara çubuğu 


! 
# 
ş 
h 
2 


CE Jı O REN m © 


emmi pek ye e e he pe e a 
© © JO GOREN m XX 


NM WN NN 
»— WEN © 
O © JO a BR EW N © — 


NN 
ui 


Bu değerleri aşağıdaki kısa programa aktaralım ve RUN edelim. 


10 FORI212304 TO12311 :READA:POKELA :NEXT 
20 DATA 36,0, 66, 66, 66; 66, 66, 60 


Şimdi B tuşuna basınca Ü verecektir. Sırası gelmişken belirtmekte fayda 
var; bu karakterler yazıcıya aktarılmamaktadır. B tuşu yazıcıda gene B ver- 
mektedir. Değişiklik için yazıcı içindeki ROM'larda değişiklik yapmak ge- 
rekiyor. 

Şimdi de aşağıdaki programı bilgisayara aktarınız. 


i8 FORI-i2552 TO i2559:READ A:SPOKELI,A:NEKT 
20 FOR 1-12568 TO 1i2575:READ ASPOKELI,A:SNEKT 
20 FOR 1-12584 TO 12697:READ A:SPOKELI,ASNEXT 
, 48 FORI:12288 TO 12295:READ ASPOKELI,ASNEKT 
Sa DATA 60,66,64,64,64,66,60,24 

GA DATASGE,A,SE,6GE,64,94,66,56 

70 DATAL2AI,A,60,24,24,24,24,60 

80 DATASE,60,66,66,66,66,66,60 

909 DATAGA,GE,32,16,4,66,608,24 

1092 DATA3GE,0,66,66,66,66,66,63 


programı RUN ettikten sonra, !, #, /,&,', © tuşlarının sırasıylaÇ, G, 
İ,Ö, Ş, Ü verdiğini görürüz. 


2.1 Commodore 64'de Grafik Çizimi 


Sinclair Spectrum, BBC, Oric, Apple dahil pek çok bilgisayarda birtek 
komutla ekrana bir doğru, bir daire veya bir nokta çizdirmek mümkün ol- 
makla beraber bu iş Commodore'da yapılamamaktadır. Sprite kullanımı bir 
dereceye kadar grafik kullanımını kolaylaştırıyor ise de klasik metodun 
önemli olduğunu düşünüyoruz. Örneğin bir sinüs eğrisi çizimi, bir dikdört- 

“gen içine bir daire çizimi veya bir logaritma eğrisi çizimi gibi... 

64'te bu işi yapmak için bit açılımlı grafik metodu mevcuttur. Bu metod 
ekranda yüksek rezolüsyon kullanmakta yani ekranı normalinden çok daha 
küçük noktalara bölerek grafiğin daha kâliteli olmasını sağlamaktadır. Ek- 
ran her satırda 40 karakter olmak üzere 25 satırdan meydana gelmektedir. 
Her karakterde 8x8 bit'ten oluştuğuna göre, ekranda 320x200 piksel mev- 


cuttur. Demekki ekranda 64000 adet nokta (dot) vardır. Bunun için ise 
hafıza da 64000 bit'lik veya 8000 byte'lık bir bölüme ihtiyaç vardır. Fakat 
çok renkli grafik kullanmak gerekiyorsa o zaman ekrandaki nokta sayısı dü- 
şüyor. Ekran bu durumda ancak 160x200 noktalardan oluşabiliyor. 

Yüksek rezolüsyon yani 64000 noktalık durumda iki renk seçimi müm- 
kün olmaktadır. Bit açılımlı grafik metodu (Bit map mode) na geçmek için 
53265 numaralı adresin 5 numaralı bit'ini | yapmak gerekir. Bunu OR ile 
aşağıdaki gibi yapmak mümkündür. 


POKE 53265, PEEK (53265) OR 32 
Bu metodu terk etmek için ise aynı bit'in O olması gerekiyor. Bunu da 
POKE 53265, PEEK (53265) AND 223 


satırı ile yapmak mümkün oluyor. 

Daha önce tuşların Ö, Ü gibi değişik karakterler için programlandığına 
bakmıştık. Bu metodda ise ekranda her nokta programlanabilir olmaktadır. 
Ekrandaki karakterlerin yerlerinin adresi 1024'den 2039'a kadardır. Bu ad- 
reslere rakamsal değerler vererek karakterleri elde ediyorduk. Örneğin ekra- 
nın Sol üst köşesinde C elde etmek için POKE 1024,3 yazmak kafidir. Şim- 
di ise aynı adresler renk bilgileri için kullanılmaktadır. Bit açılımlı grafik 
metodunda her karenin rengi, renk hafızasından değilde ekran hafızasından 
gelmektedir. 

Ekranın hafıza adresinin yüksek 4 bit'lik bölümü, 8x8 bit'lik alanda değe- 
ri 1 olan bit'leri ifade etmek için kullanılırken, alçak 4 bit'lik bölümü ise 
aynı alanda değeri O olan bit'leri ifade etmek için kullanılmaktadır. 

Ekranı temizleyip yüksek rezolüsyonlu grafiğe ayırma işini aşağıdaki 
programla yapabiliriz: 


10 B-244096 

15 POKE 53272,PEEK<53272)0R8 

20 POKE 33265,PEEK(<S3269)0R 32 

23 FOR I-B TO B*t7999:POKE 1I,90:NEXT 
39 FOR 1-1024 TO 2023!POKE I,3:NEXT 


Şimdi yapılacak iş 320x200 olan matris'te istenilen noktayı bulup sön- 
dürmeye kalıyor. Eğer o adresteki bit'in değeri O ise sönük, | ise parlak ola- 
caktır. Şekillerde zaten böyle oluşmaktadır. 
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şekilde görülen sisteme göre X— O, Y— 0 noktası ekranın sol üst köşesi | 
oluyor. X ekseni sağa doğru yani karakterlerin arttığı istikamette, Y ise 
satırların arttığı istikamette olmaktadır. Fakat bu noktaların bilgisayarca 
ayarlanması karakterlerin byte'larla ifadesinden dolayı çok karışmaktadır. 
Aşağıda verilen satırlar her program için standart olduğundan fazla detaya 
girmeden verilecektir. 


RO <INT (Y/8) hangi satır olduğunu belirtiyor. 

CH —INT (X/8) o satırda hangi karakter olduğunu belirtiyor. 

Her iki halde de bir byte 8 bit olduğundan sekize bölünüyor, INT'le de 
tam sayı kısmı alınıyor. 

LNZ Y AND7 

BIT—7— (X AND 7) 


bulunan karakterde dotları oluşturan hangi satırın arandığı LN ile, o satırda 
hangi bit'in arandığı, BİT değişkeni ile tespit ediliyor. 


Bir karakterlik alan 


T 6 5 4 3 2 1 0 
e © 0s. e. e str) 
e sv vs e e ss e satıri 
e e © e satır? 
e o © e o e e e satır3 
e e. se e e e tri 
Danmalı si hrda e e © © e e e e str5i 
4 numanlı bit e. 9 ve e e e e satır6 
se. e © e e e e str 
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İstenilen (X, Y) noktasının hangi karaktere ait hafızada olduğunu şu for- 
mülle tespit edebiliriz. 


BYTE Bt*RO *320 #CH*8 #IN 


(X, Y) koordinatına sahip noktayı aydınlatmak için yani O bit'i | yap- 
mak için aşağıdaki satırı yazmak gerekiyor. 


POKE BYTE, PEEK (BYTE) OR 21BIT 


Şimdi bu bilgilerin hepsini toplayarak ekrana yüksek resolüsyonda kö- 
şeleri (50, 50), (150, 50), (150, 100), (50, 100) noktalarında olan dik- 
dörtgeni çizelim. 

Programın 10-30 numaralı satırları standart olup izahatını daha önce 
vermiştik. 100-130 numaralı satırla dikdörtgen üst yatay çizgisini çizdi- 
ginden X'in değeri artmaktadır. Diğer kenarlarda bu şekilde oluşturul- 
maktadır. Dikkat edilirse her seferinde GOSUB 1000 kullanarak daha önce 
teorisinden bahsettiğimiz bit ve byte'ların hesabı yapılıyor. Bu bölümü ar- 
tık standart olduğundan her grafik çiziminde üzerinde fazla düşünmeden 
kullanabiliriz. Programın sonunda 300 ve 310 numaralı satırlarla ekrandaki 
çizimi inceleme imkanımız oluyor. 


19 B-2x4096 

15 POKE 53272,PEEK<(<53272)0R8 

20 POKE 53265,PEEK(<(5326S)OR 32 

25 FOR 1:B TO B*7999'POKE 1I,8:NEXT 
30 FOR 1-1024 TO 2023:POKE |1I,3:3NENT 
40 

100 FOR X-50 TO 150 

119 Y-50 

120 GOSUB 10900883 

130 NEXT 

140 FOR X-59 TO 158 

158 Y-İ90 

169 GOSUB 10090 

170 NEKT 

180 FOR Y:50 TO 198 

199 X-50 

200 GOSUB 1909 

210 NEXT 
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220 
230 
249 
eo 
399 
319 
1090 
1019 
1020 
19038 
1040 
1850 
1060 
1078 


FOR Yz58 TO 108 
X-150 
GOSUB 1083 
NEXT 
POKE 1824,1 :REM SON 
GOTOT 3İiG6:REM BEKLE 
REM STANDARD RUTIN 
CHZINT<X/8) 
ROZINT(CY/8) 
LN-Y AND 7? 
BYTE 2B*tROX3201CH4*8 *LN 
BIT-7-(X AND 7) 
POKE BYTE ,PEEK(XBYTEO>OR(21BIT) 
RETURN 


İkinci örnekte, belki biraz daha karışık olan dairenin çizimine bakalım. 
Yançapı 70 ve merkezi (160, 100) koordinatlarında olan dairenin çizimi 
için önce daire üzerindeki X, Y noktalarının bulunması için bir. yöntem ge- 
liştirelim. Şekilde görülen dairenin merkezini (0, 0) noktası olarak alırsak, 
herhangi bir A noktasının, verilen bir X değeri için Y koordinatı VR? — X2 
olmaktadır. 


G0) an 
>N 
- 
© | 
A(XV REX) 


koordınatı VRZ  y2” olmaktadır. 
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iğ 
15 
20 
25 
30 
40 
1900 
119 
120 
isa 
140 
159 
160 
170 
180 
130 
280 
218 
220 
230 
240 
250 
390 
3189 
190 
191 
192 
193 
184 
165 
106 
197 


B-2x4096 
POKE 53272 ,PEEK (53272 )0R8 
POKE 53265,PEEK (53269)0R 32 
FOR 1I-B TO B*t7999:POKE 1I,0:NEXT 
FOR 1-1024 TO 2023:POKE 1I,3:NEXT 
R:70 
FOR X&-169 TO 230 
YZz1001SORCRAR-(X-160)4(<X-1605) 
GOSUB 10098 
NEXT 
FOR X-160 TO 230 
Y:1900-SORC(CRAR-(X—-160)4<(X-160)) 
GOSUB 1000 
NEXT 
FOR X-160 TO 939 STEP-İ 
Yz1001SORCRAR-CIBO-X)x<160-X20) 
GOSUB 1900 
NEXT 
FOR X-160 TO 909 STEP -i 
Yz1900-SORCRAR-C160-X)x(160-X2) 
GOSUR 10900 
NEKT 
POKE 1924,i :REM SON 
GOTO 3Idğ:REM BEKLE 
89 REM STANDARD RUTIN 
8 SHSINT(K/8) 
8 ROZINTC(<Y/8) 
2 LN-Y AND 7 
9 BYTE-BtRO#32AYCH*SELN 
2 BIT:7-<K'AND 7) 
9 POKE BYTE ,PEEKCX<BYTEYJORM<21BIT) 
2 RETURN 


Programda 40 numaralı satır yarıçapı veriyor. 100-130 numaralı satırlarla 
X değerine 160 ilave ederek, Y değerine de 100 ilave ederek dairenin 4 nu- 
maralı bölümü çizilmektedir. 140-250 numaralı satırlarla da diğer üç bölüm 
çiziliyor. Her bölüm için GOSUB 1000 ile alt program kullanılmaktadır. 
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2.2 Yazıların ekranda yavaş hareketi. 


Monitor'da görülen bir yazının yavaş yavaş yukarıya veya yanlara doğru 
hareket etmesi bilhassa reklam işlerinde veya basitce göze hoşgeldiğinden 
dolayı arzu edilen bir programlama türüdür. Spectrum'da bu işlem PRINT 
AT komutuyla kolaylıkla yapılmaktadır. Commodore'da bu olanak olma- 
makla beraber ekranı dolduran piksellerin birer birer aşağı yukarı, sağa sola 
kaydırmakla yazıyı hareket ettirmek mümkündür. Aşağıda verilen program 
ANKARA yazısını aşağıdan yukarıya doğru hareket ettirmektedir. 


10 POKES53265,PEEK(53265)AN0247 

20 PRINT CHR$(147) 

3â FOR X<1 TO 24:PRINT CHR$C17):5:NEXT 
48 POKES53265,(PEEK(53265)AND248)*7:PRINT 
50 PRINT" ANKARA"; 

GA FOR P-6 T9 9 STEP -1 

70 PCKE 53265,(PEEK(5326S)AN0248)4P 

22 FOR X-i TO S8:NEXT 

20 NEXT:6G0T040 


Ekranın 24 sıradan oluşmasını sağlayan adres 53265 oluyor. Burada 3 
numaralı bit'e O değerini vermek gerekiyor. 10 numaralı satır bunu yap- 
maktadır. Eğer hareket X ekseni yönünde (yatay) olsaydı 53276 numaralı 
adresin 3 nolu bit'ini O yapmak gerekecekti. Böylece ekran 38 kolondan 
oluşacaktı. Bunun için gereken komut 

POKE 53270, PEEK (53270) AND 247 
olmaktadır. Her iki halde de eski 40 kolon, 25 sıra haline dönmek için 


POKE 53270, PEEK (53270) OR 8 
POKE 53265, PEEK (53265) OR 8 


komutlarını kullanmak kafidir. 


25 


26 


3. BÖLÜM SPRAYTLAR 


3.0 Spraytlar 


Daha önce Commodore'da direk grafik komutlarının ne derece zayıf ol- 
duğunu belirtmiştik. Sprayt olayı Commodore'da dahil çok az bilgisayar 
için geçerli olan fakat çok kullanışlı bir grafik yöntemidir. 

Bilgisayarınızın manuelinde bu konuda bazı bilgiler bulunduğundan, aynı 
şeylerin burada tekrar edilmesini pek faydalı a Dolayısıyla teori 
kısmına kısaca değinmek istiyoruz. 

Grafik'te ve hareket eden şekillerin elde edilmesinde yani animasyon'da 
spraytlar kullanılabilir. Spraytı hareket edebilen programlanmış şekiller ola- 
rak niteleyebiliriz. 

Spraytlarla ilgili bilgiler VIC TM yongasında saklandığından oradaki adres- 
ler hakkında bazı bilgileri verelim. 


VIC H yongasının başlama adresi, hafıza planındanda anlaşılacağı üzere, 
53248'dir. Bu adresten itibaren 46 adet kayıt yeri spraytlar için birşeyler 
yapmaktadır. 0-15 arası olanlar spraytın pozisyonunu, 21 nolu kayıt yeri 
spraytın aktif veya pasif olduğunu, 28 nolu olanı rengi vs. vermektedir. 8 
adet spraytı bir anda kullanma imkanı vardır. Bir sprayt 24x21 pikselden 
yani 504 pikselden oluşmaktadır. 8 adet nokta veya piksel | byte ettiğin- 
den, spraytı oluşturan şeklin bir satırını oluşturmak için 3 byte'a ihtiyaç 
vardır. 21 satır olduğuna göre 63 byte'lik bir hafızaya ihtiyaç vardır. 

Sprayt dizayni için en iyisi kareli bir kağıt kullanmaktır. Yana doğru 24 
kare, aşağı doğru ise 21 kare istenilen sprayt için kafidir. 
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Karelerin ikili 
sistemdeki değerleri 


Bir örneğe geçmeden önce bilgisayarın kendi manuelinde olan balon ör- 
neğini deneyip çıkaramayan Commodore severler için düzeltilmiş programı 
aşağı da veriyoruz. Daha sonra da bahsedeceğimiz gibi, 12 numaralı satırda 
bilgisayara spraytı 255 nolu bloka yerleştirmesini söylüyoruz. 255 nolu blo- 
kun başlama adresi 255x64 — 16320 olmaktadır. Bu düzeltme 20 no'lu sa- 
tırda yapıldı. Bu değer önceden 832 olarak verilmişti. Burada verilen prog- 


27 


ramda balon yukarıdan aşağı doğru inmektedir. Bunu ise 40 numaralı satır- 
da X koordinati sabit tutmakla elde ettik. 


1 REM UP UP AND AHAY 

5 PRINT",JZ" 

18 V-53248:REM START OF DISPLAY CHIP 

11 POKE V1t21,4:REM ENABLE SPRITE 2 

12 POKE 2042,255:REM SPRITE 2 DATA FROM BLOCK 255 
20 FOR N-9 TO GZ2:READ G:POKE 163201N,G:NEXT 

30 FOR X-8 TO 200 

â4& POKE Vt4,8A:REM UPDATE K COORDINATES 

50 PODKE V*t5,K:REM UPDATE Y COORDINATES 

68 NEXT X 

72 60T030 i 

2809 DATA 8,127,0,1,255,192,3,255,224,3,23İ1,224 
2190 DATA 7,217,240,7,223,240,7,217,240,3,231,224 
220 DATA3,ES55,224,3,255,224,2,255,160,1,127,64 
239 DATAI,S2,64,0,156,128,0,156,128,0,73,0,2,73,0 
240 DATA 0,62,8,0,62,0,0,62,0,0,28,0 


Kareli kağıda istenilen şekli aşağıdaki gibi hazırladıktan sonra programa 
başlamadan önce karelerin byte olarak değerlerini hesaplamak gerekir. Her 
satır üç byte'dan oluştuğuna göre 63 byte mevcuttur. 

Bunların değeri sırayla; 

0,0,0,0,0,0,2,0,0,3,9,0,3,128,0(1-5 satır) 

3,192,0,3,224,0,195,240,0,195,255,240, 255,255, 248 (6-10 sa- 
tır) 

255,255,252,255,255,248,195,255,240,195,240,0,3,224,0(11- 
15 satır) 
3,192,0,3,128,0,3,0,0,2,0,0,0,0,0,0,0,0 (16-21 satır). 
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BLOKA KOY 


50 POKE 2845,254:REM DATAYI 254. 


G'NEXT 


/ 


68 FOR N-8 TO 6&2:READ G:POKE 16256tN 


78 FOR 1-8 TO 208 
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sa POKE V*10,1 

90 POKE V*ttii,i 

100 NEXT 

1192 DATA 09,0,0,0,0,8,2,8,0 

120 DATA 3,9,8,3,128,9,3,1392,0 

130 DATAZ,224,0,195,240,0,195,255,240 

140 DATA 255,255,248,255,255,252,255,255,248 
150 DATA 195,255,240,195,248,0,3,224,8 

169 DATA 3,1392,0,3,128,0,3,0,0 

178 DATA2,9,0,08,28,0,0,0,0 


Önce 15 numaralı satırla ekranın rengini beyaz ,yazıları da siyah yaparak 
çizilecek uçağın mavi renginin ekranda daha net olmasını sağlıyoruz. Ve 20 
numaralı satırla da ekranı temizliyoruz. 30 numaralı satırla V — 53248 ya- 
zarak spraytlarla ilgili mikroçipin başlama adresi V değişkeniyle belirtili- 
yor. Böylece her seferinde 53248 yazılmıyor. 40 numaralı satırla 5 numaralı 
sprayt aktif hale sokuluyor. Burada 21 sayısı aşağıdaki tablo. 3'den dolayı- 
dır. 32 sayısı ise 5 numaralı spraytı belirtir. Buradaki değer 2'nin spraytın 
numarasına üs alınmasıyla elde ediliyor, 29 — 32 olmaktadır. 50 numaralı 
satırda POKE 2045, 254 ile 5 no'lu sprayta ait datanın 254'üncü bloka yer- 
leştirilmesi sağlanıyor. 2045 no'lu adres 5. sprayt olduğuna göre O no'lu 
sprayt için 2040 adresini kullanmak gerekiyor. Tam liste söyledir: 


2040 Ono'lu sprayt 
2041 1 no'lu sprayt 
2042 2 no'lu sprayt 
2043 3 no'lu sprayt 
2044 4 no'lu sprayt 
2045 5 no'lu sprayt 
2046 6 no'lu sprayt 
2047 7 no'lu sprayt 


Tablo:3 Spraytların hareketi ve renk konumu ile ilgili adres tablosu: 


ADRESLER ADRESLERE YERLEŞTİRİLEN 
Vvz53248 DEĞERLERLE YAPILAN İŞLER 


V* 0'dan Spraytların ekranda X, Y konumunun 
Ve# 15'e kadar belirtildiği adres (bak tablo:4) 
Ekrandaki ilave pozisyonun adresi 
Spraytın aktif hale gelmesini bu adres 
sağlar 

Spraytı boyuna genişletmek için 


Öncelikler için 
Spraytı enine genişletmek için 


Renkler için 


V*37,V*t38 
V* 39'dan V# 46'ya kadar 


olmak üzere 7 adet sprayt otomatik olarak adreslenebiliyor. Datanın alına- 
cağı blokun 254 olduğunu belirttik. Bu blokun başlama adresi, blok nu- 
marasını 64 ile çarparak elde ediliyor, 64x254 — 16256. 60 numaralı satır- 
da ise 63 adet (3x21) byte bu adresten itibaren olmak üzere yerleştiriliyor. 

70 - 100 satırları arasında İ geçici değişkeni için bir döngü mevcut. Bu 
spraytın ekranda değişik noktalara hareket etmesi için hazırlanmıştır. 80 
numaralı satırla 5 numaralı spraytın X koordinatı I değerini almaktadır. 90 
numaralı satırda ise yanı spraytın Y koordinatı I değerini almaktadır. Tablo 
4'de bütün spraytların X, Y koordinatlarının hangi adreslere yerleştirilmesi 
gerektiği gösterilmiştir. Dolayısıyla V # 10'da X koordinatı, V # 11'de ise Y 
koordinatı saklanmaktadır. 


Bu programda spraytın hangi renkte olduğunu belirtmedik. Halbuki tab- 
lo 3'te spraytların renkleri ile ilgili adresler vardı. Adreslerden V * 39'dan 
V * 46'ya kadar olanlar sırayla 0,1,2,3,4,5, 6, 7 numaralı spraytların 
renkleri için kulanılmaktadır. Programda 5 numaralı spraytı kullandığımıza 
göre; 
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Tablo: 4, Sprayt Koordinatları 


X koordinatını Y koordinatını 
belirleyen adres belirleyen adres 


PRINT PEEK (53248 1-44) 
yazısı ile spraytın rengini öğrenebiliriz. Bu değer 246'dır Renk kodu ise bu 
değerden 240 çıkarmakla ekde ediliyor. Bu durumda 246 — 240 —6 oldu- 


ğundan 


Tablo:5. Renk Kodları 


Tablo 5'den spraytın renginin mavi olduğunu çıkarıyoruz. POKE komu- 
ta kullanarak spraytın rengini değiştirmek mümkündür. 

POKE 53248 #44,15 
spraytın rengini gri yapmaktadır. 
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Spraytların büyüklüğü sabit olup 504 pikselden (24-21) oluşmaktadır. 
Halbuki bazı hallerde bu şeklin daha büyük olması istenebilir. Spraytları X 
veya Y yönünde ayrı ayrı büyütmek mümkün oluyor. Tablo 3'den de anlaşı- 
lacağı üzere 53248 * 23 numaralı adres spraytın boyuna iki defa büyüme- 
sini, 53248 * 29 numaralı adres ise spraytın enine iki defa büyümesini sağlı- 
yor. Bu komutları sırayla; 

POKE 53248 * 23,32 

POKP 53248129,32 


her defasında 5 numaralı spraytı 32 ile gösterdik. Bu değer daima 2” şek- 
linde ikinin sprayt numarasına göre üs almakla elde ediliyor. Bu rakamı 
kullanmadan 

POKE 53248 * 23, PEEK (53248 #23)OR(2 SN) 
komutu ile de aynı işlem yapılabilir. SN ise daha önceden belirtilmelidir. 
SN'nin değeri spraytın numarasına eşitlenmelidir, SN — 5 gibi... Eski konu- 
ma dönmek için 

POKE 53248 *23,0 :POKE 53248 429,0 
yazmak kafi geliyor. . 

Tablo 4'de sprayt pozisyonları ile ilgili bilgileri vermiştik. Yalnız bilgisa- 
yarın yapısından ileri gelen bir özelliğinden bahsetmemiştik. 

Hatırlanacağı gibi bit modunda ekran X yönünde 320 noktadan Y yö- 
nünde ise 200 noktadan oluşmaktadır. Spraytları X yönünde yerleştirmek 
için, yukarıdaki uçak örneğinde olduğu gibi POKE V #10) yazınca I'nın 
alacağı en büyük değer 255 olabilir. Bu değer bir byte'lık bir ifade ile erişi- 
lebilen en büyük değer olmaktadır. Halbuki X yönünde 320 noktayı kulla- 
nabilmeliyiz. Bunun için ne yapmak gerekir? 

Bir byte'lık adresleme işimizi tam görmediği için ancak ilave bir bit kul- 
lanarak bunu halledebiliriz. Bu ilave biti daha önceki byte'nın sol tarafına 
yerleştirerek elde edilen rakamı (23 4 256)-512'ye çıkarabiliriz. Burada 
236 yazıldı çünkü, bir byte'la elde edilen rakam 255 demiştik ama, 0'da sa- 
yılırsa toplam rakam sayısı 256 olur. Şimdi bu ekstra bit ile spraytı 512 de- 
gişik noktalara yerleştirmek mümkün olacaktır. 

Fakat X'in değeri 319'u geçemez. Bu ekstra bit tablo 3'de belirtilen 
V #16 numaralı adreste saklanmaktadır. X'in değeri 200'den az ise bu ad- 
reste O olmalıdır. X'in büyük değerleri olan 200-3 19 için ise bu adresin bit' 
lerini değiştirmek gerekir. Bu adresteki 0, 1,2,3,4,5,6 ve 7. bitler 0'dan 
7'ye kadar olan spraytlara tekamül etmektedir. 5 numaralı sprayt için bu 
işlemi yapmak istiyorsak V 4 16 no'lu adreste 00100000 değeri olmalıdır. 
Bit'ler numaralanırken sağdan başlayıp ilk rakama bit 0, ikinciye bit 1, 
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üçüncüye bit 2 diye gidilerek son rakam bit 7 olur. 00100000 ile 5. bit'in 
değeri 1, diğerleri O oluyor. 00100000'ın sayısal değeri 32 olmaktadır. 
Şimdi uçak programında şu satırları değiştirerek programı koşturalım 
(RUN edelim). 


70 FOR 1-9 TO 255 
80 POKE V*t18,1I 

90 POKE V*t1i,100 
109 NEXT II 

id1 POKE V*16,32 
192 FOR 1-9 TO 63 
103 POKE V*t10,1 
194 NEXT 1I 

105 POKE V*t16,0 


Ekranda uçağın soldan sağa doğru yatay olarak ilerlediğini görüyoruz, 
Y değeri 100 ile sabitlendiği için aşağıya doğru hareket yoktur. 105 numa- 
ralı satırlada tekrar bu ilave bit'i 0'a eşitlemek gerekiyor. Komple program 
aşağıdaki gibi olacaktır. 


18 REM HAREKET EDEN UCAK 

15 POKES3281,1:PRINT"g" 

20 PRINT"i7" 

30 V-53248 

48 POKE V42i,32:REM 5 NUMARALI SPRAYTI DEVREYE AL 
50 POKE 2045,254:REM DATAYI 254. BLOKA KOY 
60 FOR N-8 TO G2:READ G:POKE 16256*N,G!'NEXT 
70 FOR 1-8 TO 255 

80 POKE V*10,1 

90 POKE V*t11,108 

190 NEXT 1 

191 POKE V116,32 

102 FOR 1-0 TO 63 

193 POKE Vt10,1 

104 NEXT I 

195 POKE V1t16,9 
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118 DATA 8,8,0,8,0,8,2,0,8 

120 DATA 3,9,0,3,128,0,3,192,8 

130 DATA3,224,0,195,240,0,195,255,240 

148 DATA 255,255,248,255,255,252,255,255,248 
150 DATA 195,255,240,195,240,0,3,224,0 

160 DATA 3,192,0,3,128,0,3,8,0 

170 DATA2,A,0,08,8,0,0,0,8 


Spraytların sayısını arttırmak mümkündür. Ekranda görülmesi istenilen 
spraytlar için gereken komutları (ve spraytların çarpışması gibi oyun ha- 
zırlamak için gereken detayları da şu örneği ilave ederek görelim. 


İİİ 
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Helikopteri 6 numaralı sprayt olarak 253. bloka yerleştirelim. Hareketini 
ise ekrarın sağ alt köşesinden sol üst köşeye doğru ayarlayalım. Daha önce- 
ki programa bu değişiklikleri ilave edince aşağıdaki program elde ediliyor. 

40 numaralı satırda POKE V* 21,96 vardır. Bu satır uçak için 32 idi. 
Helikopterde 6. spraytı oluşturduğundan değeri -29— 64 olacaktır. Bu iki 
spraytı bir anda ekranda görebilmek için bu değerleri ilave ederek yukarıda 
belirtilen V * 21 adresine yerleştiriyoruz. Eğer bir başka sprayt daha ilave 
etmek isteniyorsa, o spraytın kaç no'lu sprayt olduğuna karar verdikten 
sonra, o değerin 2 tabanına göre üssü alındıktan sonra yukarıdaki değere ila- 


18 
15 
eo 
30 
ga 
42 
50 
se 
so 
se 
70 
s9 
se 
85 
96 


109 
186 
110 
129 


REM HAREKET EDEN UCAK VE HELİKOPTER 
POKES3281,i:3PRINT"g" 
PRINT"ı4" 
V-53248 
POKE V*t21,9S6:REM S5 VE 6 NOLU SPRAYTLARI DEVREYE AL 
POKE V*45,5 
POKE 2045,254:REM DATAYI 254. BLOKA KOY 
POKE 2046,253:REM DATAYI 253.BLOKA KOY 
FOR N-& TO 62:READ G:'POKE 16256*N,G: NEXT 
FOR N:9 TO &2:READ G:POKE 161921N,G:NEXT 
FOR 1-8 TO 200 
POKE V*10,1 

POKEV*t11,100 

POKE YV*ti2,255-1 

POKE Vt13,200-1 

NEXT 1 

GOTO 78 

DATA 0,9,0,8,0,08,2,9,8 

DATA 3,90,9,3,128,0,3,192,09 


130 DATA3,224,0,195,240,0,195,255,240 
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DATA 255,255,248,255,255,252,255,255,248 


159 DATA 195,255,240,195,240,0,3,224,0 


169 


DATA 3,192,8,3,128,8,3,08,09 


170 DATA2,0,0,0,08,0,09,0,8 
139 DATA 9,9,0,08,0,0,8,93,0 
190 DATA 0,0,0,8,08,08,31,252,0 


E00 
219 
229 
e39 
240 
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DATA 9,128,3,9,128,14,3,192,60 
DATA7 ,224,12,14,48,12,308,53,252 
DATA 63,255,255,63,240,0,31,182,8 
DATA15,0,0,1,15,0,7,248,0 

DATA 9,9,0,9,9,0,0,8,0 
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ve etmek gerekir. Örneğin bu sprayt 1. no'lu sprayt olsun, değeri 2!—2 ol- 
duğundan, toplam değer (32464472—98 olacaktır. £ Program satırı da 
POKE V *21 98 olacaktır. 

42 numaralı satırda ise POKE V$#- 45 5 ile 6. spraytınrengi yeşil olarak ta- 
nımlanıyor (bak tablo. 5) 

52. ve 62. satırlar datanın 253. bloka, 253x64-16192 numaralı adres- 
ten başlamak üzere yerleştirildiğini gösteriyor. 

95. ve 96. satırlar helikopterin koordinatlarını tanımlarken, 106. satırda 
hareketi başa alarak devamlılık sağlıyor. 

Aynı anda ekranda birden fazla sprayt hareket halinde ise bunların çar- 
pışması söz konusu olacaktır. Bu durumda ekranda yalnız bir tanesinin ren- 
gi belirecektir. Bu seçim ise spraytın numarasına bağlıdır. Az numaralı sp- 
raytlar daima çok numaralı spraytlardan önce gelir. Yani 5. ve 6. spraytlar 
çarpıştığında 5. sprayt görülür. Yukarıdaki örnekte koordinatları tekrar dü- 
zenleyerek spraytların çarpışmasını sağlayalım. 

95SPOKEV 412,110 
yazarak helikopteri yukarıya doğru, hareket ettirince uçağın koordinatı 
(100, 100) ve helikopterinki (110, 100) olduğu zaman spraytlar üst üste 
gelmektedir. Çakışan alanlarda ise uçak 5. sprayt olduğundan, o bölge mavi 
görünüyor. 

971IF1—100 THEN GOTO 97 
satırıyla da görüntünün ekranda sabitlenmesi sağlanıyor. 

Spraytlar normalde ekranda ne varsa onun üzerine gelmektedir. Progra- 
mın listesini alırsak spraytların altında kalan karakterleri görme imkanı yok- 
tur. Eğer spraytın arkada kalması isteniyorsa, örneğin 5. spraytiçin POKE 

. V#27,32 yazmak gerekiyor, 6. sprayt için bu POKE V* 27,64 olur. 

Son olarak spraytlarla hereket oluşturmayı inceleyelim. Daha önce de be- 
lirtildiği gibi birden fazla sprayt kullanma imkanı varsa da, hareket bir tek 
sprayt kullanarak datayı değişik yerlerden almak suretiyle yapılabilir. Aşa- 
gğıdaki programda (kuşun iki hareketi, yani kanatlarının yukarıda veya 
aşağıda olma durumu incelenmiştir. Programı verdikten sonra satırları ince- 
leyelim; 


18 REM UCAN KUS 

20 PRINT",J" 

25 V-53248 

30 POKE Vt2i,2:REM SPRAYT i DEVREDE 

50 FOR M:z8 TO G2:READ G:3POKE 16256tM,G:NEXT 
680 FOR N-0 TO G2:READ S:POKE1S53201tN,S:NEXKT 
70 POKE Vt40,5 
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72 POKE Vt3,98 

75 P-254 

88 FOR X-0 TO 347 STEP 3 

90 RK:INT(X/2536):LX-X-RXXx256 

190 POKE Vtg,LX:POKE Vt16,RX 

110 POKE 2041,P:FOR Tsi TO GÖ:NEKT 
120 P-P*ti:1IF P>255 THEN P-254 


130 NEXT 

135 GOTO75 

140 DATA 9,9,0,8,0,08,8,08,8 

142 DATA 9,9,8,0,9,0,8,0,0 

144 DATA 0,0,8,0,9,0,8,0,8 

146 DATA 9,0,0,8,0,224,63,255,176 

148 DATA 127,255,22822,119,255,128,3,255,0 
159 DATA 3,248,0,3,240,8,1,224,0 


152 DATA 1,224,8,1,192,0,1,192,0 

178 DATA 8,12,0,12,14,0,7,14,0 

180 DATA 7,142,0,3,254,0,1,252,2 

190 DATA 1,252,0,1,248,0,1,248,0 

200 DATA 1,240,0,1,241,224,63,255,176 
218 DATA 127,2355,222,119,255,128,3,255,0 
220 DATA 1,248,0,0,0,0,0,0,0 

230 DATA 9,9,9,0,8,0,0,0,0 


20 no'lu satırla ekran temizleniyor. 25 no'lu satırda V ile VIC2 mikroçi- 
pinin başlama adresi belirtiliyor. 

30 numaralı satırla 1 no'lu sprayt aktif hale getiriliyor. 50 ve 60 numara- 
lı satırlarla kuşun haketini oluşturacak olan iki ayrı şekile ait data 16256- 
16318 ve 16320 — 16382? arası adreslere yerleştiriliyor. Bu şekiller kuşun 
kanadının yukarı ve aşağıya doğru olduğu alınarak hazırlandı. 


70 numaralı satırla kuşun rengi sarı olarak seçildi. 72 no'lu satırla ise sp- 
raytın Y koordinatı 90 ile sabitlendi. Eğer kuşun sol alt köşeden başlayıp 
sağa doğru uçarken yükselmesini arzu ediyorsanız 72 no'lu satırı kaldırıp 
102 POKE V 43, 200 — LX/2 satırını ilave ediniz. 

75 no'lu satır datanın konduğu ilk blokun 254. blok olduğu belirtiliyor. 
Bu blok 16256. adresten başlıyor. 

80-130 numaralı satırlar arasında oluşturulan döngü ile kuşun devamlı 
hareketi sağlanıyor. Yalnız spraytın X koordinatının seçimi farklı bir yolla 
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yapılıyor. 90 numaralı satırda RX değişkeni O veya | değeri alarak X'in 0- 
255 arası veya 256-319 arası olmasınıbelirtiyor. LX değişkeni ise X koordi- 
natını veriyor. RX, 1'e eşit olunca X, 256-319 arası olmasına rağmen oluş- 
turulacak döngüde X'in 0-63 arası bir değer alması gerekiyordu (bak: önceki 
örnekler). Fakat LX'in kulanılmasıyla bu ilave döngüye gerek kalmadan 
işlem otomatikman yapılmaktadır. 

110 numaralı satırla sprayt 1'in başlama adresi P ile 254. blok olarak be- 
lirtiliyor. FOR T—I1TO60: NEXT ile bilgisayarın bir sonraki işlemden 
önce biraz beklemesi sağlanıyor. 

120 numaralı satırla P'nin değeri | arttırılarak bir sonraki datanın 255. 
bloktan yani 16320 no'lu adresten itibaren alınması sağlanıyor. Bu ise ku- 
şun kanatlarının aşağıya değilde yukarıya doğru olduğu durumdur. Böyle- 
ce datanın alındığı yer değiştirilerek ve X'in değeri de arttırılarak kuşun uç- 
ması taklit edilmiş oluyor. IF P> 255 THEN P—254ile de P'nin değeri 
tekrar 16256 no'lu adrese çevriliyor. 

Spraytların üst üste gelmesi veya çarpışması önemli olabilir. Bu durumda 
53278 no'lu adres 1 değerini almaktadır. Bu değer okunduğu zamanda 
(PEEK komutuyla) değeri tekrar 0'a eşitlenmektedir. Tablo: 5'de son iki 
bölümde, Vt30 (veya 53278)'daki değere göre ateşleme veya puan verme 
gibi bir olayı başlatmanın nasıl yapıldığı gösteriliyor. 


4. BÖLÜM SES VE MÜZİK 


4.0 Commodore 64 ile ses ve müzik 


Spraytlarda olduğu gibi ses ve müzik için de özel bir mikroçip bulunmak- 
tadır. SID denilen çiple elde edilecek sesin hacmi, frekansı, dalga boyu gibi 
özellikleri programlanabilmektedir. SİD çipi ile ilgili adresler 54272'den 
başlıyor. 0-28 arası olmak üzere 29 adet adreste çeşitli özellikler saklan- 
maktadır. 


Tablo: 6. SID çipi adresleme tablosu. 


Adres Yaptığı iş 
54272'den 54278'e kadar I.nolu ses için ayrılmıştır. 


54279'dan 54285'e kadar 2 nolu ses için ayrılmıştır 
54286'dan 54292'ye kadar 3 nolu ses için ayrılmıştır. 
54293 Alçak frekans için 


54294 Yüksek frekans için 


54296 Ses hacmi kontrolu ve filtreleme için 


ses hacmi kontrolu: 

Ses kontrolu, taban adresi S—54272 alırsak, S # 24 no'lu adrese O ile 15 
arasında bir değeri POKE etmekle elde ediliyor. Dolayısıyla 16 adet ses 
kontrol seviyesi mevcuttur. 

Sesler: i 

Üç adet ses mevcuttur. Her biri için 7 adet adres ayrılmış olup yaptıkları 
işler farklıdır. Aşağıdaki tabloda bunlar kısaca verilmiştir. 
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Tablo: 7. Seslerin kayıt ve fonksiyonları 


Ses 2 Ses 3 
adresleri adresleri 


553272 


5414 | Alçak frekanslar 


S*8 Yüksek frekanslar 


549. S 4-16 Alçak puls süreci (Puls: 


aniden yükselip (alçalan 
sinyaldir 
S 41 


Ni e 
si yan 


Frekans: 


Ses | 
adresleri 


Yaptığı iş 


Elde edilen sesin frekansı en önemli özelliğini oluşturur. Üç adet ses 
mevcut olduğuna göre, alçak ve yüksek frekans olmak üzere 6 adet adresle 
frekans düzeni kurulmaktadır. 


e Şi Tü 


54272 
54280 
2 Nolu | 


2 Nolu 54279 
54287 


Dalga şekli: 


Alçak 


54286 


Commodore 64 manuelinde de belirtildiği gibi üç adet dalga formu mev- 
cuttur. Bunlar ingilizcede üçgen tipi, Testere dişi tipi ve kare tipi diye 
sınıflandırılıyor. Ayrıca herhangi düzenli bir şekille ifade edilemeyen beyaz 
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gürültü denilen bir dalga formu vardır. Bu tip dalga boyu daha çok oyunlar. 
da ateşleme yapmada, gemi batması, uçakların patlaması gibi efekleri gös- 
termek için kullanılmaktadır. 

Seslerin dalga formu Tablo: 7'de verilen oSt4,S*11,S18 numaralı 
adreslerdeki bitlerin programlanması ile elde edilmektedir. Bitlerin değişti- 
rilmesi genelde AND veya OR komutlarının kullanılması ile yapılmak tadır. 


Bit Numarası Yaptığı İş: 


Sesin genel görünüşünü veya alçak frekanslı olan 
zarfını belirtir. 


e Puls (aniden yükselen ve alçalan) tipi dalga formu 
için 


Gürültü dalga formu için 


Zarf Üretici: 


Sesin frekansı ile ilgili detaylı analizini yapacak olursak şu özelliklerinin 
olduğunu görürüz. 


5 

© 

>) 

Nİ 

yw» 

— E 
v 

W. 


Zaman Ekseni ——>—>> 


sesin şiddet açısından A noktasından B noktasına kadar olan bölümüne se: 
sin yükselmesi (İngilizcede Attack), BC arası sesin alçalması (İngilizced. 
decay), CD arasında sesin şiddeti sabit olma durumunu koruyor (İngilizcede 
sustain), DE arasında ise ses tamamen kayboluyor (İngilizcede Release). 

Sesin yükselme, alçalma, süreklilik ve yok olma fazlarını işleyecek kayı 
adresleri mevcuttur. 
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Tablo 8: Seslerin yükselme /alçalma, sabit tutma/yok olma adresleri 


siyon 


çalma için 
abit tutma ve St6 St13 St20 
sok olmasin. İİ 


Bir byte'nın yüksek değerde olan 4 bit'lik bölümü ile alçak değerde olan 
4 bit'lik bölümünü ayırmak mümkündür. Byte'ın değeri soldan sağa doğru 
olduğundan aşağıdaki byte'da yüksek değerde olan bölüm 176'yı gösteri- 
yor. Alçak değerdeki ise 13'ü gösteriyor. 
, 10111101 
Yüksek değerli bölüm O Alçak değerli bölüm 


Verilen bir adreste 
bir Byte'lık bilgi 
ile yapılan iki fonk- 


Sesin yükselmesi yüksek değerli bölümde, alçalması ise alçak değerli 
bölümde, aynı şekilde sesin sabit tutulması ilgili byte'ın yüksek değerli, 
yok olması ise alçak değerli bölümünde saklanmaktadır. 

Sesin yükselme ve alçalma veya sabit tutma veya yok olma değerlerini 
bir byte'da vermek için basit bir formül var. 

Yüksek değerli bölüm x 16 # Alçak değerli bölüm. 

(Kendi başına hesapla) 

(10111101) örneğinde, yüksek değerli bölüm yalnız başına 4 bit'lik bir 
bölüm olarak 11'e eşittir. Alçak değerli bölüm ise 13'dür. Toplam değer ise 
16x11 #4132 189 olmaktadır. 

Bu kadar bilgiden sonra sıra geldi bir melodi programlamaya; Elinizde 
hazır bir nota listesi olsa dahi, her notayı bilgisayarda nasıl elde edeceğimize 
dair bazı pratik denemelere ihtiyaç duyulacaktır. Bu işi yapmak içinde ku- 
lağın eğitilmiş olması yani notaları duyduğu zaman tanıması gerekir. Her- 
keste bu özellik olmadığını düşünerek notaların nasıl elde edileceğini veren 
aşağıdaki ilk tabloyu inceleyelim. Tablo Commodore 64'ün kendi manuelin- 
den alınmıştır. 


| sz | BLTPS (astoyoy 
s01pe | /ureısng opsozyĞUJ) 

#vS Ya99f1p9 IMO eu yea /eunn; ge 

| etaes| (&essa 


salpe | /49811V op3ozyıduj) 


SINd MASMOA 


Lol a e ver Şer e il | KER ANN 
w ww Jae |6e (£e |se Jee | o erzes Bava yasına) 
#d #9 9 NI MVWTIVİ 

VLON 4IS 


“(Gpigeyo iste çç7 ajı 0 BASA Istie | 0110) SAYAV NIİJ MVMdVA 
ZINIYILSITAJA HYTISANAV TAVANVA (JI18193a Nd ZINIDVOVNVTTNM INPİVGI9VSV 


NTOYLNOX 
(ope 91) npioğop ng epulsese Ş| ol 0iz4v 967$S I4Od UVAV SS 


I SAS - sauıps opjo ere esiğyig ULEJeYON *6 :OJge 1 
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(9seopoy/unasns 
opsozmı8uş) 
BLU YEa/eunnL, 1GES 


4evd 
»oENV op3ozUBUŞ) 
BUNEİTV /9Unosyn. 


NNUOJ VYTVA SINd 


TIVINYOJ VYIVA 
A 


ehe Dele Tee erler fa Pe fe e 
e 


(amıgeyo 1seze ç67 01.0 2494 Bere ŞI Oi 0) 
ZINIAIISITYJA HATISIYAV PAVONVA MATTA NS ZINIŞVOVNVTINN INDIVGIŞVSV 


(GopV 91) spsa$op 119 epuisuze ŞI 0yi 0 AV 967»S JNOd | OTOYINON UVAV SİS 


7 sas - isaLuyıpa ope eyredesiğyg uLeJeroN :01 Olge 1 


NIİJ 


AMVWTVİ VLON 414 | 


AF 


iv 


BG 
G 
pa 


ZINIYILSITYIKA ANTISANAV DIVANVA 3131934 Nd 


MENE 


ISTad HMALSAL NADİN 
m lele fer 
BERE 
Sha) 4) ml de) al 


(anıgelo tsere 57 ayı 0 t4aa iseze ŞI ON 0) 


(Gopv 91) mıpıa$op 114 epuseze ÇI oj! 0 TEÂV 


(9seojoy/ureısns 
opsozmiBuj) 
euyeng/eunn | 11GEŞ 
4899g 

/woeyv apsoznı8uy) 
2UJEİJV /9UJosyr A 
SINd AVİTTV 

SINd MASANA 


NANAOJ VYIVA STNd 


TMVTMXOJ VOTVA 


sazpe yaoafıpa IMOd 
987b5 SNVAINA MVÖİTTV 


18795 | Ooo SNVXNA MASMOA 
NIJ 
YVKTIVİ VLON YJA 


sAYaV NIİJ MVMdVA 
ZINIDVOYNVTINA INTAVGIYVSV 


967?S ANOd | OTOYINOX MVAV SIS 


£ SAS - isoLuyıpo opyo epukesiğyıg UUEJEŞON :1 1 OGEL 


47 


Tablo 12: Müzikal aletlerin bilgisayarda simule edilmesi için uygulanan 
dalga formları ve değerleri 


Dalga , ustaj Puls 
Cihaz formu miktarı 


Piyano | Pak 0 800) 00 Yüksek 
rat ve a 
Flüt Üçgen | Uygulanmaz | 


Lr 
ll Uygulanmaz 


| Üçgen | 0 | 
 Colliape | üçgen İL — 
Akordiyon) Üçgen o o |10? | 
Trempet | Testere | 56 — 


Tablo 9,10, 11 Commodore 64'te var olan üç sesin frekanslarını, notaları 
ve diğer değerleri vermektedir. Notaların Türkçe karşılıkları Tablo 13'te ve- 
rilmektedir. Tablo 12 ise hangi müzik aletinin hangi dalgaboyu ile en iyi 
taklit edilebileceğini göstermektedir. 

Bilgisayarda herhangi bir melodiyi çalmak için az da olsa bir müzik bilgi- 
sine ihtiyaç vardır. Notaların bilinmesi gerekir. Zamanlama bilgisi gerekir. 
Diğer bir sorunda do, re, mi... diye ifade ettiğimiz notaların İngilizcede C. 
D,E,F,G.A,B şeklinde ifade edilmesidir. Aşağıdaki tabloda notaların kar- 
şılıkları ve yüksek frekans ve alçak frekans değerleri verilmektedir. Prog- 
ramda da göreceğimiz gibi her bir notayı elde etmek için bu sayısal değer- 
lerin ses liçinS*0,S* 1,Ses2ZiçinS*t7,S* 8 ve Ses 3 içiniseS#l4, 
S # 15 adreslerine POKE edilmesi gerekmektedir. Tablo'da 4 numaralı nota 
seti ile onun incesi olan 5 numaralı nota setleri verildi. Commodore 64'te 
bu setlerden 8 adet mevcuttur. Tam listesi kitabın manuelinde bulunabilir. 
Dikkat edilecek diğer bir özellik de setler arttıkça notaların yüksek frekans 
değerleri ikiye katlanmaktadır. Programlama yaparken bundan faydalanıla- 
bilir. 


Tablo: 13. Notaların yüksek ve alçak frekans karşılıkları. 


Yüksek Alçak 
Frekans Frekans 


ol 4-5 
Si -5 


b 
a İLA İs İŞ e 


İlk örneği notaların ingilizce karşılıklarıda yazılı olan bahar şarkısı adlı 
küçük bir melodi verefr-. 
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Bu melodideki notaları programa aktarmadan önce değerlerini bir tablo 


halinde listelediğimizi düşünürek programı inceleyelim. 


ile gösteriyoruz. Daha 


bunu S 


sonra gelen 24 adrese 0 değeri POKE ederek hafıza temizleniyor. Bu prog- 


dan, 


gun 


adres 54272 oldu 


Müzikle ilgili 


ramda yalnız | numaralı ses kullanılmaktadır. 20 numaralı satırla notanın 
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yükselme, alçalma ve sabit tutma, bırakma parametreleri, yani notanın sü- 
resini tespit eden parametreleri veriliyor. 30 numaralı satırla ise ses yüksekli- 
ği ayarlanıyor. 15, en yüksek ses olmaktadır. Televizyon veya monitordan 
da ses ayarlanabilmek tedir. 40-80 arası satırlarla da notaların yüksek ve al- 
çak frekansları hafızaya yerleştirilmektedir. 

DR parametresi ise notalar arasındaki zamanı vermektedir, Yani zamanla- 
ma yapmaktadır. 


4 REM BAHAR SARKISI 
5 s-54272 
ig FOR L:S TO St24:POKEL,D:NEXT 


20 POKE 545, S:POKES*6,B 

30 POKE S*24,15 

40 READ HF,LF,DR 

59 IF HF<8THEN GOTO 96 

GO POKE S*i,HF:POKE S,LF 

70 POKE 514,33 

80 FOR Tsi TO DR*125:NEXT 

90 POKE S44,32:FOR Tsi TO 59:NEXT 

85 G0T049 

36 END 

100 DATA 21,31,63,25,30,63,25,30,125 
118 DATA 22,96,63,28,49,63,28,49,125 
120 DATA 31,165,63,31,165,63 

130 DATA 28,49,63,31,165,63,33,135,63 
140 DATA 37,162,63,42,62,125 

150 DATA 21,31,63,25,30,63,25,30,125 
160 DATA 22,96,63,28,49,63,28,49,125 
170 DATA 31,165,63,31,165,63 

180 DATA 28,49,63,31,165,63,33,135,63 
190 DATA 33,135,63,33,135,125 

200 DATA 42,62,63,33,135,63,25,30,125 
210 DATA 22,96,63,28,49,63,28,49,125 
220 DATA 31,165,63,31,165,63,28,49,63 
239 DATA 31,165,63,33,135,63,37,162,63 
240 DATA 42,62,125 

250 DATA 42,62,63,33,135,63,25,30,125 
260 DATA 22,96,63,28,49,63,28,49,125 
278 DATA 31,165,63,31,165,653,28,49,63 
280 DATA 31,165,63,33,135,63,33,135,63 
2sa DATA 33,135,63,-1,-1,-1 


SI 


70 numaralı satırla ise testere dişi tipi dalga formu seçilmektedir. Ayrıca 
DR ile verilen zamanlama değeri az bulunursa buna herhangi bir sayı örne- 
gin 125, ilave ederek daha iyi bir ritim elde edilebilir. Data sonunda verilen 
-1 değerleri datanın bittiğini göstermek için konulmuştur. 

Melodilerini daha iyi tanıyacağımız iki örnekle bu bölümü tamamlamış 
oluyoruz. Notaları okurken dikkat edilecek noktaları şöyle sıralayabiliriz: 

1. Notanın zamanlaması; bunu notanın şeklinden çıkarmak mümkün, yal- 
nız notadan sonra gelen noktanın zamanı '/o 50 arttırdığını bilmek gerekir. 

2. Sus işareti içinde bilgisayara değerler vermek gerekir. Aşağıdaki prog- 
ramlardaki 130, 170, 390, 430 ve 170, 200, 320, 350, 390, 500, 610, 640 
numaralı satırlarda olduğu gibi. 

3. Notaları veren bölümler sonundaki : İşareti o bölümün tekrar edileceği- 
ni belirtmektedir. Bu bakımdan programdaki nota karşılıklarına ait data'lar 
daha fazla görülmektedir. 


4 REM SAMANYOLU 
5 S-54272 
18 FOR L-S TO S*t24:POKEL,8:İMEXT 
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20 
39 
40 
50 
68 
79 
80 
s9 
85 
96 
1909 
119 
120 
138 
140 
159 
169 
179 
189 
198 
200 
210 
220 
230 
240 
e50 
260 
270 
e2ea 
290 
390 
318 
320 
338 
340 
350 
3689 
370 
389 
390 
490 
410 
428 
430 


POKE S*t5,96:POKESt6,240 

POKE S$*t24,15 

READ HF,LF,DR 

IF HF<OTHEN 96 END 

POKE Sti,HF3POKE S,LF 

POKE St4,33 

FOR Tsi TO DR*t250:NEXT 

POKE St4,32:FOR Tsi TO SA:NEXT 
GOT049 

END 
DATA33,135,189,37,1S52,125,33,135,63 
DATA 31,165,189,33,135,63,31,165,63 
DATA 33,135,63,28,49,189,31,165,63 
DATA 28,49,63,31,165,63,25,30,378,0,0,125 
DATA33,135,189,37,162,125,33,135,63 
DATA 31,165,189,33,135,63,31,165,63 
DATA 33,135,63,28,49,189,31,165,63 
DATA 28,493,63,31,165,63,25,30,378,0,0,125 
DATA 25,30,183,28,493,125,25,30,63 
DATA 22,96,63,21,31,315,33,135,63 
DATA 37,162,63,33,135,63,31,165,63 
DATA 25,30,63,28,493,63,31,165,189 
DATA 42,62,189,28,49,189,31,165,125 
DATA 28,49,63,25,30,63,22,985,315 
DATA 31,165,63,33,135,63,28,49,63 
DATA 25,30,63,22,96,63,25,308,63 
DATA 21,31,339 

DATA 25,30,189,28,49,125,25,30,63 
DATA 22,96,653,21,31,315,33,135,63 
DATA 37,162,53,33,135,63,31,165,63 
DATA 25,30,63,28,49,63,31,165,189 
DATA 42,62,189,28,49,189,31,165,125 
DATA 28,48,63,25,30,63,22,96,315 
DATA 31,165,63,33,135,63,28,49,63 
DATA 25,38,63,22,96,63,25,30,63 
DATA 21,31,389 
DATA33,135,189,37,162,125,33,135,63 
DATA 31,165,189,33,135,63,31,165,63 
DATA 33,135,63,28,49,189,31,165,63 
DATA 28,49,63,31,165,63,25,39,378,0,9,125 
DATA33,135,189,37,162,125,33,135,63 
DATA 31,165,189,33,135,63,31,165,63 
DATA 33,135,653,28,49,189,31,165,63 


DATA 28,49,63,31,165,63,25,30,378,0,0,125,-1,-1,-1 
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4 REM SEV KARDESİM 
.5 S-54272 


1g 


20 
30 
49 
5a 
68 
70 
89 
sa 
95 
96 


FOR L-S TO S*t24:POKEL,8:NEKT 
POKE S*t5, 9:POKESt6,128 

POKE S5t24,15 

READ HF,LF,DR 

IF HF<O9THENGOTO 96 

POKE Sti,HF:POKE S,LF 

POKE S*t4,33 

FOR Tsi TO DR*t108:NEXT 

POKE St4,32:FOR Tzi TO S8:NEXT 
60T040 

END 


1009 DATA 28,49,32,33,135,63,31,1655,32 
1109 DATA 33,135,63,28,49,63,33,135,63 
120 DATA 31,165,32,33,135,157,31,165,32 
1309 DATA 33,135,32,33,135,32,31,165,32 
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140 
150 
168 
170 
180 
190 
200 
210 
229 
230 
249 
250 
260 
270 
280 
2909 
399 
310 
320 
339 
340 
3509 
360 
370 
388 
390 
400 
410 
420 
430 
440 
4509 
469 
470 
480 
490 
5909 
519 
529 
530 
540 
550 
5609 
570 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


33,135,53,31,165,32,33,135,32 
37,162,63,33,135,32,37,162,63 
33,135,132,33,135,32,31,165,32 
0,0,32,31,165,32,31,165,32 
28,49,32,31,165,63,26,156,63 
31,165,63,28,49,32,31,165,95 
0,0,32,31,165,32,31,165,32 
28,49,32,31,165,63,28,49,32 
31,165,32,33,135,63,31,165,32 
33,135,63,31,165,32,31,165,32 
28,49,32 
28,49,32,33,135,63,31,165,32 
33,135,63,28,49,63,33,135,63 
31,165,32,33,135,157,31,165,32 
33,135,32,33,135,32,31,165,32 
33,135,63,31,165,32,33,135,32 
37,162,63,33,135,32,37,162,63 
33,135,132,33,135,32,31,165,32 
0,9,32,31,165,32,31,165,32 
28,49,32,31,165,63,26,156,63 
31,165,63,28,49,32,31,165,95 
0,0,32,31,165,32,31,165,32 
28,49,32,31,165,63,28,49,32 
31,165,32,33,135,63,31,165,32 
33,135,63,31,165,32,31,165,32 
28,49,32,0,0,63 
21,31,32,21,31,32,18,209,32 
16,1395,125,18,209,32,21,31,63 
22,96,32,21,31,63,18,209,32 
15,195,63,22,96,32,22,96,32 
21,31,32,18,209,125,22,96,32 
22,96,63,22,96,32,22,96,63 
25,30,32,22,96,32,18,209,32 
21,31,32,21,31,32,18,209,32 
16,195,63,21,31,63,21,31,63 
21,31,63,18,299,63,21,31,125 
0,0,63 
21,31,32,21,31,32,18,209,32 
16,195,125,18,209,32,21,31,63 
22,96,32,21,31,63,18,209,32 
16,195,63,22,96,32,22,96,32 
21,31,32,18,209,125,22,96,32 
22,96,63,22,96,32,22,96,63 
25,30,32,22,96,32,18,209,32 
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5809 
590 
600 
619 
620 
630 
640 
650 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


21,31,32,21,31,32,18,2909,32 
16,195,63,21,31,63,21,31,63 
21,31,63,18,209,63,21,31,125 
0,0,63 
28,49,32,33,135,63,31,165,32 
33,135,63,28,49,63,33,135,63 
31,165,32,33,135,32,0,0,63 
-1,-1,-1 


5. BÖLÜM FAYDALI PROGRAMLAR 


5.0 Programların Otomatik Çalışması 


Commodore 64 programları yüklendikten sonra bilgisayar hazır cevabını 
vererek beklemektedir. Eğer Shift RUN/STOP düğmesiyle yükleme yapılır- 
sa, otomatik çalışma mümkünse de programı kilitlemek istediğiniz zaman 
yüklemeyi daha değişik şekilde | yapmak gerekiyor. Aşağıdaki program 
disk sistemi için bunu yapmaktadır. Programı RUN ettikten sonra yeni bir 
isim altında oyun veya iş programını tekrar yüklemiş oluyorsunuz. Şimdi 

LOAD "PROGRAMIN ADI",8, 1 


yazdığınızda bilgisayar programı yükleyip RUN edecektir. 


5 POKE 53280,15:POKE 53281,15:PRINT"g" 
423 PRINT"BU PROGRAM OTOMATIK CALISMAYAN":; 
41 PRINT" PROGRAMINIZI DISK UZERİNDE"; 
42 PRINT" BASKA BIR ISIM ALTINDATEKRAR"; 
43 PRINT" COGALTARAK LOAD'PROGRAM ADI'"; 
44 PPRINT",8,1i YAZDIGINIZ ZAMAN PROGRAM"; 
45 PRINT"INIZIN OTOMATIK OLARAK"; 

46 PRINT" CALISMASINI SAGLAR" 

89 INPUT"MDTOMATIK PROGRAMINIZ";:BR$ 

81 IF BR$-""THEN 88 

980 INPUT"YILK PROGRAMINIZ":BE$ 

SI IF BE$-""THEN 98 

100 OPEN15,8,15 

200 OPEN8,8,2,BR$t",P,l":GOSUB1098 

210 PRINT#S,CHR$<B>CHR$C<C1)3 

220 FORK-OTO2S5S:PRINT#H8 ,CHR$<22::NEXT 

230 PRINT#8S ,CHR$(9)CHR$C<CO)CHR$C0>CHR$(169)73 
240 PRINTAR8,CHR$CLENC<BE$> >; 
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259 READA: IFA-SSITHEN4900 

269 PRINTH8 ,CHR$C<A)3:GO0TO250 

3009 DATA 162,61,160,2,32,189,255,169 

305 DATA 2,162,8,160,0,32,186,255 

310 DATA 169,0,1S52,1,160,8,32,213,255 

315 DATA 134,45,132,46,16S,82,141,119,2,169 
329 DATA 85,141,120,2,169,78,141,121,2,169 
325 DATA 13,141,122,2,169,4,133,198 

330 DATA 76,116,164,999 

400 PRINT#8,BE$:CLOSES8:GOSUB10800:END 

1900 INPUT#IS;EN,EM$,ET,ES 

1018 IF EN THEN PRINT"gDISK ERRORM";EN;EM$:ET,ES:STOP 
1920 RETURN 


5.1 Programların birleştirilmesi 


Programların birleştirilmesi bazı bilgisayarlarda MERGE Komutu ile ya- 
pılmaktadır. Commodore 64'de bu olanak olmadığından aynı işi yapacak 
bir programa ihtiyaç vardır. Bu işlem Simons Basic ile yapılmakla beraber, 
bu durum da da RAM hafızası 9000 Byte azaldığından pratik olmayabilir. 

Aşağıdaki iki ayrı program kaset üzerinde yüklü olsun. Bunları birleştir- 
mek için aşağıdaki işlem yapılmalıdır. Önce yüklenecek programların satır 
numaralarının aynı olmaması gerektiğini kontrol etmek lazımdır. 

Daha önce kaset de yüklü olan programlar: 


i8 FORIZ-1 TO 190STEP2 
1. Program 20 LET B-I*xl 

380 PRINT B 

40 NEXT 


680 FORJ-2 TO 1009 STEP2 
70 CSJKJXJ 

89 PRINTC 

99 NEXKTJ 


2. Program 


Şimdi aşağıdaki birleştirme programını yükleyelim ve RUN edelim. Bu 
program RUN edildiğinde kendisini BASIC hafıza bölgesi dışında olan 
40705 numaralı adresten itibaren yüklediğinden bizim vereceğimiz prog- 
ramla çakışmayacaktır. Zaten programın 300 numaralı satırı ile POKE işle- 
mi tamamlandıktan sonra BASIC hafıza alanı temizleniyor. 
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18 POKE S55,8:POKESE&E,159:CLR 
. 20 S-40705:FOR J-S TO S*t78:3READ V 

30 CsC*tV:POKEJ,V:NEXT 

40 IF CC 28756 THEN PRINT "DATA ERROR":END 
120 DATA 169,9,133,10,32,212,225,165 
130 DATA 43,72,165,44,72,56,165,45 
140 DATA 233,2,133,43,165,46,233,8 
158 DATA 133,44,169,09,133,185,166,43 
160 DATA 164,44,169,08,32,213,235,176 
178 DATA 14,134,45,132,46,32,51,165 
180 DATA 104,133,44,104,133,43,96,170 
198 DATA 201,4,144,244,240,10,104,133 
209 DATA 44,104,133,43,24,108,0,3 

210 DATA 164,186,136,240,209,208,239 
309 NEW 


Birleştirme programını yükleyip, RUN ettikten sonra kasetteki ilk progra- - 
mı yüklemek gerekir. Kasetteki ikinci programı ise özel bir komutla yükle- 
mek lazımdır. Komutlar aşağıdaki sırayı takip etmelidir.  * 

1. Birleştirme programını LOAD komutuyla yükle ve RUN ediniz. 

2. Kasetteki ilk programı LOAD komutu ile yükleyiniz. 

3. Kasetteki ikinci programı ise SYS 40705 yazıp RETURN tuşuna basa- 
rak yükleyiniz. 

4. Şimdi LIST yapılırsa iki programı da aşağıda olduğu gibi ekranda gör- 
mek mümkün olacaktır. 


19 FORIsi TO 1080STEP2 
20 LET Bs1iI4xl 

30 PRINT B 

40 NEXTI 

60 FORJ:2 TO 108 STEP?2 
70 CejkJxj 

89 PRINTC 

90 NEKTJ 


5.2 Oyunların tuşlar veya joystick'le kontrolu 


Programlarda oyunlar bazı hallerde tuşlarla, bazı hallerde de joystick'le 
oynanmaktadır. Halbuki siz bunu değiştirmek isteyebilirsiniz. Bu durumda 


yapılacak iş programın bazı satırlarını değiştirmek olacaktır. Eğer program 
tuşlar için yazılmışsa, programda 

PE—PEEK (197) 
satırı vardır. Bu değer en son basılan tuşun değerini vermektedir. Örneğin 
basılan tuş W ise PE'nin değeri 9, X ise PE'nin değeri 23 olmaktadır. Tuş- 
taki değerleri Joystick hareketleri ile değiştirmek isteniyorsa aşağıdaki 
değişiklikler gerekecek tir. ij 

PE'nin Ateş etme değeri, joystick için PE AND 16 

PE'nin Yukarı hareketi, joystick için PE AND | 

PE'nin Aşağı hareketi, joystick için PE AND 2 

PE'nin Sola hareketi, joystick için PE AND 4 

PE'nin Sağa hareketi, joystick için PE AND 8 
olmaktadır. Bunu bir örnekle gösterirsek (Helikopter oyununa bakınız); 


4C PE—PEEK (197) 
45 IFPEZISANDF >0 THENX—Xt2:F—F—0O. 
5C IFPEZIOANDF>0 THENX —X —2:F—F—0O. 
satırları joystick için; 
40 PE-PEEK (56321) 
45 IN PEAND8SANDF >0 THENX—X*2:F>F—.İ 
50 IFPEANDIANDF >0 THENX—X—2:F-F—.I 
olmaktadır. PE'nin yeni değeri 56321 numaralı adresten gelmektedir. PE — 
18 olduğu zaman bu oyunda W tuşu idi ve yukarı hareketi sağlıyordu. Do- 
layısıyla joystick için bu değer PE AND 1 olmalıdır. PE — 10 değeri ise D 
tuşuna aitti ve bu tuşla sağa hareket sağlanıyordu. Joystick için bu değer 
PE AND 8 olmaktadır. 

Tuşların değerlerini ekranda görmek için aşağıdaki küçük programı kul- 
lanabiliriz. AŞ değişkeni olarak verilen tuşun değerini programı RUN ede- 
rek görmek mümkün oluyor. 


i8 PEZ-PEEK(<197) 

20 GET ASSIF A$-""THENGOTO20 
390 PRINT PE,A$ 

429 GO0T018 
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5.3 Sprayt üreteç programı 


Daha önce spraytların nasıl elde edildiğini temel prensiplerine dayanarak 
görmüştük. Spraytı oluşturan piksellerin değerlerini hesaplamış ve sonra da 
bunu asıl oyun programına data şeklinde ilave edebileceğimizi belirtmiştik. 
Matematik hesabından zevk almayanlar için şimdi vereceğimiz program hayli 
uygun. Bu program çalıştırılınca ekrana 24x21'lik bir matris veya grid gel 
mektedir. Ekranın sağ tarafında da kürsörün bir grid üzerinde sağa sola, 
aşağı yukarı nasıl hareket ettirileceği yazılı. Spraytı oluşturmak için isteni- 
len noktaya kürsörü kullanarak vardıktan sonra S tuşuna basarak oraya bir 
daire çiziliyor veya oradaki bit'in değeri 1'e eşitleniyor. Bu şekilde noktala- 
rı çoğaltarak istenilen sprayt şeklini elde etmek mümkün olmaktadır. RE- 
TURN tuşuna basarak da elde ettiğiniz şeklin data olarak karşılığını almak 
mümkün oluyor. Şimdi bu değerleri oyun programınıza aktarabilirsiniz. 
SPACE tuşu ile istenmeyen noktaları, SHIFT/CLR komutu ile de beğen- 
mediğiniz şeklin tamamını silebilirsiniz. Elde ettiğiniz spraytın gerçek bü- 
yüklüğü ise ekranın sağ alt köşesinde verilmektedir. 


1 SC-1024 

2 POKE 649,0 

19 PRINT"ı7" 

il FOR 1-8 TO 7:0(7-15:21I:NEXT 

12 FOR 1-0 TO ?:AX<1)-255-0<I):3NEKT, 

15 POKE 53281,6 :P0OKE53280,6 

20 GOSUB 2900 

Eâ FOR 1-552096 TO 563189:POKE 1,8: NEXT 
1909 POKE 209,25:POKE 210,4 

118 PRINT"g5PACE MsiL" i 
120 POKE293,65:FPRINT"S BCIzIMmM" 


i3ü POKE2099,195:PRINT"A soL" 
140 POKE2M3,145:PRINT'*gD H5AG" 
152 POKEPOAS,İISSIPRINT "İğ HYUKARI" 
160 POKEF99,225:PPINT"#K BASAGI" 


170 POKE203,3:POKE219,5:PRINT"MEHIFT CLR MTEMIZ2" 

1309 POKE209,49:PRINT"RE TURN BDATA" 

200 S0-832:POKE 2040,13:POKE 53287,8 : 

201 POKE 2241,13:POKE53288,4:POKES3250,1i:POKES53251,190 
205 GOSUB 3909 
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219 
220 
2205 
230 
240 
309 
503 
505 
519 


529 


530 
540 
5509 
560 
570 
580 
590 
603 
610 


POKE 
POKE 
PÜKE 
POKE 
POKE 


CK:0:CY-0 


FOR 1-8 TO 5 

FOR TPzsi TO 20:NEMT : 

IF 1-8 THEN POKE SC1tCX*CY£*48,PEEK 
(SC*tCK*tCY4«498) OR 128 

IF 1:3 THEN POKE SC*CX*tCY449,PEEK 


(SCtCK*tCY£40) AND 127 


K:PEEK (1987) 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


Kz18 
Kz18 
KZ213 
Ks9 

Kze23 
K 368 
KZ251 
Ks 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


53248,24 
53249,135 
53264 ,3 
53269,3 
53271,21'POKE 53277,2 


5000 
5100 
5200 
5308 
54009 
5500 
5600 
7000 


700 NEXT | 
809 GOTO 589 


1090 
280908 
2019 
2020 
2039 

2048 
3090 


5090 
5910 
5020 
5108 
5118 
5129 
5200 
52109 
5220 
5230 
5300 
5310 
5320 
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GoTO 1908 

FOR 1-9 TO 29 

FOR Js9 TO 23 

POKE SC*11440tJ,43 

NEXT J3NEXT II 

RE TURN 

FOR 1:8 TO 621:POKE SOt1I,B:NEKT:RETURN 


IF CXs8 THEN 788 

POKE SC*CX1CY*48 ,PEEKC<SCtCK*tCY*4402 AND 
CXsCX-1:GOTO 79009 

IF CX:23 THEN 7889 

POKE SC#CX1CY440 ,PEEK(SC*CK*CY£402 AND 
CK-CK411:GO0TO “788 

POKE SC*tCX*1CY£40,8i 

TP-SOtCYA3tINT (CX/8) 

POKE TP,PEEKC(<TP) OR O<CXK-8£INT (CK/8)) 
GOTO 709 

IF CY-0 THEN 7809 

POKE SC*tCK1CY£40 ,PEEKC<SC*#CK*CY*#40) AND 
CYzCY-1:6G0TO 7808 


127 


127 


127 


5408 
5410 
5420 
5500 
5510 


5520 
5609 
56193 
7006 
7010 
7029 
7030 
7040 


IF CYz20 THEN 708 

POKE SC*1CK1CY*40 ,PEEK<SC1CK*1CY*49) AND 127 
CYZCY*t1:GOTO 7909 

POKE SC*CXK*1CY*40,43 
TP-S0434xCY*#INTCCX/8):POKE TP,PEEKCTP)> AND 
ACCK-SXINT(CCK/8)2) 


GOTO 790 

GOSUB 20909 

GOSUB 39091:60TO 790 

PRINT"ı" 

FOR 1-0 TO G2:PRINTPEEK(<S0t1)45 
IF 1(062 THEN PRINT*,"? 

NEXT 1 

END 
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6. BÖLÜM MATRİSLERLE DÖRT İŞLEM 


6.0 Matrislerle dört işlem 


Matris işlemleri, yapısı itibariyle bilgisayarlar için en uygun hesaplama 
yöntemini oluşturmaktadırlar. Bu bölümde matrisleri tarif ettikten sonra 
matrislerin toplama, çarpma ve invers alma işlemleri bilgisayarla nasıl ya- 
pılıyor incelenecektir. Ayrıca seri halde yazılan denklemlerin yani simultane 
denklemlerin çözümüyle ilgili bir metod da verilecektir. 

Matrislerin tarifi 

Matrisler enine ve boyuna artan bir seri rakamlar olarak düşünülebilir. 
Sağa doğru giden rakamlar kolonları, aşağı doğru inenler de sıraları oluş- 
tururlar. 


1 -3 4 
3 2 -7 


şeklinde verilen matrisin iki sıradan ve üç kolondan oluştuğunu söyleyebi- 
liriz. Buna ,MxN matrisi dersek M—2,N—3 olur. Daima sıraları önce ver- 
meliyiz. 


3 7 0 0 3 
|! 1 7 1 -5 
> 8 2 2 0 


, 


Matris örneklerinden ilki 3x3 olan bir kare matristir. İkincisi ise 3x2 ile gös- 
terilen bir matristir. Yani 3 sıradan ve 2 kolondan oluşmaktadır. 


6.1 Toplama İşlemi 


Matrislerin toplama işlemi çok basittir. Elemanlarını ayrı ayrı toplamak 


işi halledecektir. 

Ex 3 2 O » 3 7 
Si 

Z“ 3 NN 1 0 7 


Yukarıda yapılan işlemi bilgisayarla yaparsak. Aşağıdaki şu küçük programı. 
yazmak gerekecektir. Çıkarma işlemi de temelde aynı olup 110 no'lu satır- 


da 


18 
15 
20 
25 
30 
48 
s0 
69 
70 
89 
se 
199 
118 
115 
120 
149 
200 
219 


* işareti — olacaktır. 


REM MATRIS TOPLAMA 
DIM A<2,3),B(2,3),C(Ce,3) 
FOR Isı TO 2 

FOR Jsi TO 3 

READ ACI,J) 
NEXT.TSNEXTİ 

FOR Izi TO 2 

FOR Jsi TO 3 

READ BCI,J) 
NEXTJ:NEXTİ 

FOR Isi TO 2 

FOR Jzi TO 3 
CCI,J>zACI,J)*BCI,J) 
PRINTCC<I,J>3 

NEXTJ 

NEXT 

DATA 1,3,2,-2,1,3 
DATA 2,9,5,1,-1,4 


6.2 Çarpma işlemi 


Matrislerde çarpma işlemi aşağıdaki örnekte de görüldüğü gibi birind 
matrisin ilk sırasına ait elemanların ikinci matrisin ilk kolonuna ait olan ele- 
manlarıyla ayrı ayrı olarak çarpıldıktan sonra, onların toplamına eşittir. 
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5 -1 


1x3 1(-3)x015x5 1x(<4)1*(-3)x2*5x(-1) 


(44)x315x0494x5 (-4)x(-4)45x2 4 4x(-1) 


28 -15 


Şimdi bu işlemi bilgisayarla yapmak için bir program oluşturalım. Dikkat 
edilecek noktalar: 

90 ve 100 numaralı satırlar C matrisinin sırasını ve kolonunu veriyor. 110 
numaralı satır ise her sıra ile kolonun elemanlarının çarpımından sonra onla- 
rın toplanan değerini veriyor. 


19 
15 
29 
25 
39 
ga 
5a 
659 
70 
89 
sea 
129 
1922 
119 
129 
299 
219 
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REM MATRIS CARPMA 

DIM A<2,3),B(3,2),C(<2,2) 

FOR Izi TO 2 

FOR Jzsi To 3 

READ AC<I,J/ 

NEXTJ:SNEXTİ 

FOR Isi TO 3 

FOR Jzsi To 2 

READ BC<1,J) 

NEXTJ:NEXTİ 

FOR Izi TO 2 
FOR Js1 TO 2 
C<1,J2-93 
FORKZ1 TO 3:CC1,J>50CI,J)4ACI,K>#BCK,J) 
NEXT K:IPRINT CCI,J)::3NEKXT J:GNEKT İ 
DATA 1,-3,5,-4,5,4 
DATA 3,-4,9,2,5,-1 


6.3 Matris inversi (Tersi) alma: 


Bu işlem daha çok aşağıda belirtilen matris işleminde X matrisini bul- 
mak için kullanılır. Örneğin A matrisi bir kare matris, x ve b matrisleri ise 
kolon matrisler ise; 


fAJ vb) ifadesinde 


(JA) “£b$ olur. 


görüldüğü gibi LAJ yı sağ tarafta paydaya almak bu yöntemle matema- 


tik 


sel olarak mümkün değildir. Yapılan işleme invers alma deniliyor. Fakat 


invers alma işlemi yalnız bu tür denklemlerle sınırla kalmaz. Herhangi bir 
matrisi denklemin karşı tarafına geçirmek için yapılan işlemlerde kullanıla- 
bilir. i 


REM MATRIS INVERSİIC<TERSİI) 
PRINT CHRS(147)JCHR$(154)3 "MATRIS INVERSİ *“CHR$<17)> 
PRINT"BU PROGRAM NXN TIPİ BIR KARE MATRISIN" 
PRINT"INVERSINI HESAPLAR "ICHRSC17)> 
PRINT'KARE MATRIŞIN OLCULERİINİ GIRINIZ" 

INPUT"N DEGERI"JN:PRINT 

IF NCi OR NGO)INT<N) THEN PRINT"SACMA TEKRAR VERİNİZ "1GOTOSO 
PRINT"MATRISI ELEMANLARIYLA GIRINIZ" 
DIM A<N,N) ,BKN,N) 
REM MATRISI OKUYUNUZ 

FOR Isi TON 

PRINT CHR$(159)7” SIRA"JIJCHRS$C154) 

FOR Jsi TON 

PRINT*KOLON"JJ3J INPUT ACI,I) 

NEXT:PRINTINEXT 

REM HESAPLAMA 

PRINT CHR$(147) "MATRISI "CHRS$C<17)> 

FOR Isi TO NIFOR Jsi TO NIPRINT ACI,J)3:SNEXTSPRİINTINEKT 
PRINTIPRINT "HESAPLIYOR"; i 
FOR Isi TO N!IBCI,I)siiNEKT 

Xs01GOSUB 300 

REM SONUC 

PRINTIPRINTCHRS$(154) , "BIR TANE DAHACE/H>7“ 

GET GS$S!LIF G$<2"E"ANDG$(C >"H"THEN238 

IF G6$-"E"THEN RUN ” 

PRINT CHR$(147) "GULE GULE"!END 

REM HESAPLAMA 

KaktliZsKiPRINT"8*. 

IF AC<Z,X)28 THEN ZeZtitlF Z<sNTHEN328 

IF Z>N THEN PRINTSPRINTİIPRINTIPRINT "INVERS YOK"SRETURN 
IF 2(>X THEN RsI/ACZ,K>ilsXiKsZ:GOSUBSOO 

IF A<X,X)<()1 THEN Rsi/ACK,X>il:XtGOSUBSS58 

FOR Isi TON 
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370 IF IsX THEN IelejtiP I>N TMEN 309 

380 IF A<C1,X2<28 THEN Rs-ACI,M>iKaxsGOSUB 500 
390 NEXT 

400 IF X<N THEN 316 

418 PRINTIPRINTIPRINTI *MATRISIN INVERSİI "CHR$C(17)> 
420 FOR Isi TO NIFOR Jsi TO NIPRINT BCI,J)JENEXTEPRİINTENEXT 
430 RETURN 

590 REM SIRMA OPERASYONU ICIN SIRA I'YA 

505 REM R CARPI SIRA K KADAR ILAVE ET 

316 FOR Jsi TON 

528 ACI,JI)sACI,J)ARSACKK ,J)IBCI,J>sBCI,J>AR#BCK,J> 
530 NEXT 

540 RETURN 

550 REM SIRA ICIN I ILE R CARPILACAK 

58680 FOR Jsi TON 

570 ACI,J>)eRSACI,J)IBCI,J)eREBCI,J) 


. 580 NEXT 


590 RETURN 


Programı, aşağıda verilen kare matrisin inversini almak için RUN edelim; 


3x0 -2 
Il 3 7 
-2 1 2 


MATRIS INVERSİ 

BU PROGRAM NXN TIPI BIR KARE MATRISIN 
INVERSINI HESAPLAR 

KARE MATRISIN OLCULLERİNİ GIRINIZ 

N DEGERI 3 

MATRISI ELEMANLARIYLA GIRINIZ 


SIRA 1 
KOLON! ? 3 
koLone ? 0 
KOLON3 ? -2 

SIRA 2 
KOLONİ ? 1 
koLore ? 3 
KOLON3 ? ? 

SIRA 3 
KOLON! ? -2 
KkoLonN2 ? | 
KOLON3 ? 2 


MATRIS: 
3 8 -2 
ı 3 7? 

-e Iı 2 
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HESAPLIYOR 
4 
4 


MATRISIN INVERSİ 
.05882353294 .117647059 -.352941176 
.941176471 -.117647059 1.35294118 
-.411764706 .176470588 -.529411765 


BIR TANE DAHA<E/H)? 


6.4 Denklemler seti çözümü: 


Matrisler aşağıdaki türde denklemlerin çözümünde de kullanılabilir. 

3x t12y 447 

2x—3y1tz7-7 

-x t#2y—3z2>1 
denklemlerinde x, y, z ne olmalıdır ki, bu denklemler doğru olabilsin. 
Biraz önce verilen matris inversi burada kullanılabilir. Programı verdik- 
ten sonra RUN ederek yukarıdaki probleme çözüm arayalım. 


19 REM DENKLEMLER SETİ 

20 PRINT- .CHR$(147),CHRSC154> "DENKLEMLER SETI"CHRS<(17)> 
39 PRINT"BU PROGRAM N MERTEBESINDE BIR *" 

.48 PRINT"DENKLEMLER SERISINI COZER"CHR$<17) 

586 PRINT"DENKLEM. SAYISINI VERİNİZ" 

60 INPUT"N DEGERI NEDİR?"JNIPRINT 

70 IF N<1i OR N<O)INT<N) THEN PRINT"YANLIS TEKRAR EDINIZ"1GOTO 68 
80 PRINT"KATSAYILARI TEK TEK GIRINIZ "CHRS$<17> 

90 DIM A<N,N) ,B<N)> 

100 REM MATRIS KATSAYILARINI GIRINIZ 

118 FOR Isi TON 

120 PRINT CHR$<159)j" SIRA"JIJCHRS<154> 

138 FOR Jsi TON 

148 PRINT "KOLON"JJJSINPUT AC<I,J) 

150 NEXT 

1889 INPUT"SAGDAKI DEGER"/BCI)IPRINT 

170 NEXT 

180 REM HESAPLAMA 5 

190 PRINT CHR$(<147) 'MATRIS KATSAYILARI "CHRs$C<17) 

2908 FOR Isi TO NiFORJsi TO NGPRINT O AC<I,J)IİNEKTEPRİNT BCI)INEKT 
210 PRINTIPRINT"HESAPLANIYOR”; 

220 X-0:GOSUB 308 

.238 REM SONUC 

240 PRINTIPRINTIPRINTCHRS$<( 154), "BIR TANE DAHACE/H>7*" 
230 GET G$:IF 6G$<>"E" AND G$<>"H"THEN2SO 

“288 IF G$-"E”THEN RUN 

270 PRINT CHRS$<147) "GULE GULE":END 

300 REM HESAPLAM 
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310 XexktiizskiPRİINT"$"5 

329 IF A(Z,X)-0 THEN Z2t1:1IF Zdsh THEN32B 

330 IF Z>N THEN PRINTİPRINTIPRINT "COZUM YOK"“:RETURN 
340 IFZ(>X THEN RsI/ACZ,K)>ilzKiK-2Z1GOSUB 508 

359 IF AC<X,X><>1 THEN Rzİ/ACX,X>:isX:GOSUB 550 
368 FOR Isi TON 

370 IF IX THEN IsitisiF I>N THEN 339 

380 IF A<C1,X)<20 THEN R:-ACI,X)sKEK:GUSUB 590 
399 NEXT 

409 IF X<N THEN 318 

410 PRINT£PRINTIPRINT "COZUM: "CHR$<17) 

420 FOR Isi TON 

438 IF POSC1)*#LEN<STR$(B(12))238 THEN PRINT 

440 PRINTBC<I)3 

450 NEXT 

460 PRINT:SRETURN 

509 REM SIRA ISLEMİI ICIN SIRA I'YA R*SIRA K KADAR 
502 REM ILAVE EDINZ 

510 FOR Jsi TON 

520 ACI,J)sACI,J)*RKACK,JI> 

530 NEXT 

540 B<I):B(1I)*R4B<K)E£RETURN 

559 REM SIRA ISLEMI ICIN SIRA 1I'YI R ILE CARPINIZ 
5689 FOR Jsi TON 

570 ACI,J>sR4ACI,JI) 

580 NEXT 

590 B<I)<R4BCI)ERETURN 


Programı RUN ettiğimizde alınan cevaplar 4.2, -0.14 ve -1.8 olmaktadır. 


DENKLEMLER SETİ 
BU PROGRAMI N MERTEBESIMNDE BIR 
DENKLEMLER SERİSİNİ COZER 
DENKLEM SAYISINI VERİNİZ 
WN DEGERI NEDIR? 3 
KATSAYILARI TEK TEK GIRINIZ 


SIRA | SIRA 2 
KOLON! ? 3 KOLONİ ? 2 
KOLON2 ? 2 KOLOM2 ? -3 
KOLON3 ? 4 KOLON3 ? | 
SAGDAKI DEGER ? 5 SAGDAKI DEGER ? 7 
SIRA 3 
. KOLON! ? -1 MATRIS KATSAYILARI 
KOLON2 ? 2 3 2 4 5 
KOLON3 ? -3 e -3 1 ? 
SAGDAKI DEGER ? | -ı 2 -3 | 
HESAPLANIYOR? 44 
COZUM: 


4.2 -. 142857142 -1.82857143 


BIR TANE DAHA<E/H)? 
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7. BÖLÜM MAKİNA KODU 


7.0 Makina kodu ne demektir? 


Commodore bilgisayarınızı açtığınızda ekranda ilk olarak bilgi- 
sayarınızın hafızasıyla ilgili bir satır çıkar, sonra da "Ready"'yani hazır 
yazısı çıkar. Bu "'Ready''yazısı aslında BASIC'te yazmak istediğiniz 
bir program varsa, ona hazırım anlamına gelmektedir. Bilgisayarınız 
genelde sizinle BASIC lisanı ile konuşmaya, anlaşmaya çalışır, daha doğ- 
, rusu öyle hazırlanmıştır. Durum böyle iken makina kodu da nereden 
çıkıyor? ne gerek var böyle bir şeye? 

Bilgisayarın temel yapısını oluşturan mikroişlemcisi yani CPU'- 
sudur. Mikroişlemcinin görevi, klavye yoluyla veya herhangi bir kayıt 
ortamından alınan bilgileri hafızaya yüklemektir. Bu bilgiler yani prog- 
ram çalıştırıldığı zaman içinde toplama, çıkarma gibi aritmetik işlemler, 
büyüklük, küçüklük gibi mantıksal işlemler ve ekrana, yazıcıya yazı 
yaznıak givi dokümuansal işlemler bulunacaktır. Mikroişlemcinin bunları 
yapması, kendisine bağlı olan hafıza enteğreleri, matematiksel işlemler 
için ALU entegresi ve diğer entegrelerle olan alışverişi ile mümkün 
olmaktadır. Bu alışverişte BASİC proğramında olduğu gibi " şu en- 
teğreye git", "şu entegreden şu deyimi al gel"! şeklinde komutlar değil 
de makina kodu dediğimiz iki rakamdan oluşan heksadesimal sayılar 
kullanılır. Bilgisayar her sayının değerine göre değişik işler yapmakta- 
dır. İşte makina kodu, bu sayılardan oluşan bir proğramdır. Zaten 
BASIC'te de yazılsa, diğer lisanlarda da yazılsa program netice itiba- 
riyle makina koduna dönüştürülmek zorundadır. Bilgisayar başka türlü 
iş yapamaz. 
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Genelde makina kodu programları ona en yakın olan Assembly 
lisanında yazılır ve oradan makina koduna kolayca değiştirilebilir. 

Commodore 64'de BASİC derleyici programı bilgisayarınızın 
40960 numaralı adresinden itibaren yerleştirilmişlerdir ve bu bilgiler 
ROM tipi entegrelere yerleştirildiği için silinmezler. BASİC derleyici- 
subroutines veya altprogram- denilen küçük proğramlardan oluşmakta- 
dır. PRİNT, INPUT gibi her BASİC komutu için bir subroutine gerek- 
mektedir. 

Bilgisayarınızı ilk açtığınızda ekranda yazının çıkması bir, iki 
saniye alır. Bu zaman zarfında bilgisayar ROM programlarını çalıştırır 
ve RAM hafızaya birşeyler yazılır. Bu bilgiler bilgisayar açık kaldığı 
sürece kendisi tarafından kullanılır. Kalan RAM hafıza ise temizlene- 
rek kullanıcı için hazırlanır. 

BASİC programında kullanılan değişkenler, hafızada değişkenler 
listesi adı altında ayrı bir bölümde saklanır. Bu bölüm basic programı- 
nın hemen bitiminden sonra başlar. Eğer programınıza | satır daha 
ilave ederseniz, değişkenler listesi de buna bağlı olarak bir kaç addres 
yukarıdan başlar. BASIC programının başlama adresi ve değişkenlerin 
adresleri hafızada belirli adreslerde saklanmaktadır. Sayfa 14'de belir- 
tildiği üzere değişkenler PEEK(46)4256--PEEK(45) numarâlı adreste 
verilmiştir. Bu adresten itibaren her değişkenin ASCII değeri verilir 
ve değişkenin sayısal değeri ise bunu takibeden 5'er Byte'lik gruplar 
halinde verilmektedir. 


Dizi (string) değişkenlerin durumu ise şöyle özetlenebilir. 


10 AC$ - "AHMET KORU" 


Ahmet Koru ismini AC$ değişkeni ile gösterip bu satırı RUN 
ettikten sonra, bilgisayarın AC$ karakter değişkenini 2072 adresinde 
(PEEK (46) *256*-PEEK (45)) sakladığını hesaplayabilirim. 


FOR X -2072 TO2082:?X;"".PEEK(X) :NEXTX 


komutuyla dabu adresten itibaren 10 adet adresin değerini ekrana 
yazdırırsam şu değerleri bulurum. 


2072 65 
2073 195 
2074 10 
2075 10 
2076 8 
2077 0 
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2078 0 
2079 88 
2080 0 
2081 140 
2082 2 


Buradan 2072 numaralı adresteki 65 değerinin, A'nın ASCII kodu 
olduğunu bulmak kolay, 2073 numaralı adresteki C nin ASCII değeri 
değilde ona 128 ilave edilmiş olduğunu görürüz. Bunun 128467195 
olması AC$ değişkenin bir basit değişken değilde string (dizi) değiş- 
keni olduğunu göstermek içindir. Bilgisayar bu değerden AC$, bir string 
değişkeni diyebilmektedir. 2074 numaralı adresteki değer AHMET 
KORU karakter dizisinin kaç karakter olduğunu göstermektedir, yani 
10 karakter. Sonraki iki adresin değeri olan 10 ve 8, bir adresi belirti- 
yor, oda 8*2561-10—2058 etmektedir. PRINT PEEK (2058), 65 değe- 
rini, PRINT PEEK(2059), 72 değerini veriyor. Bu değerlerde sırayla 
A ve H harflerinin ASCII karşılıkları oluyor. Bunu takibeden adresler 
de AHMET KORU dizisini tamamlıyor. 2079 dan sonraki adreslerde 
saklanan değerler AC$ değişkeni ile ilgili değildir. 

Integer veya tam sayıları ifade eden değişkenlerin hafızada tutul- 
ması daha değişik bir yöntemle olmaktadır. 

Aşağıdaki örneği inceleyelim: 


10 D/4-20 :E4-12 


yazıp RUN edelim,? PEEK(46) *2564PEEK(45) ile de integer (tam 
sayı) değişkenin hangi adresten itibaren kaydedildiğine bakalım. Verilen 
adresin 2067 olduğunu buluruz. Bu adresten itibaren 16 adet adresin 
değerlerini ekrana 


FOR 1 - 2067 TO2082 :PRINTI ;"'" ;PEEK (1) : NEXT 
satırıyla aktarırsak, aşağıdaki listeyi elde ederiz. 

2067 196 

2068 128 

2069 0 

2070 20 

2071 0 

20722 0 

2073 0 

2074 197 


73 


2075 128 


2076 0 
2077 12 
2078 0 
2079 0 
2080 0 
2081 73 
2082 0 


2067 numaralı adreste D karakterinin ASCII değeri olan 68'e 128 
ilave edilmiş ve 196 elde edilmiş. Değişken tek harfli olduğundan 
2068 numaralı adres 128-0 olan 128'i içeriyor. Ondan sonra gelen 
0,20,0,0,0 değerleri DO, değişkenin taşıdığı 20 sayısı ile ilgili. Aynı şe- 
kilde 2074 numaralı adreste E7. değişkeni ile ilgili, 2076 dan 2080'e 
kadar olan 5 byte'da o değişkenin sayısal değeri ile ilgilidir. Integer 
değişkenlerde sayısal değer için ayrılan 5 byte'dan yalnız ilk ikisi kulla- 
nılmakta, diğer 3 byte hep sıfır olmaktadır. 

Bu itibarla integer (tam sayı) olarak belirtebileceğimiz en büyük 
rakam 255ş42564-255—65535 dir. Bilgisayarın hafızasında sayıların 
tam sayı (integer) olarak saklanmasındaki faydası bunların yuvarlatıl- 
mamasıdır (rounding off). Örneğin 4 sayısının 3.999999 şeklinde ifa- 
de edilmesi gibi. Bu durum yalnız real (gerçek) değişkenlerde görülür. 
Diğer bir avantajda integer sayılarla yapılan aritmetik işlemler çok daha 
hızlı olur. 

Sayı sistemlerini UYGULAMALI BASİC adlı kitabımda detaylı 
olarak anlatmıştım. Burada kısaca bahsetmek istediğim, sayıların bil- 

gisayarda nasıl toplanıp çıkarıldığıdır. 
i O ve I'lerden oluşan sayı sistemine ikili sayı sistemi veya binary 
sayı sistemi denilir. 

Bizim normal hayatta kullandığımız O,I1,2,...9'a kadar sayılardan 
oluşan sayı sistemine on'lu sayı sistemi diyoruz. 

0,1,2,3,4,5,.6,7,.8,9,A B.C.D,.E.F şeklinde O ile 15 arası olmak 
üzere 16 sayıdan oluşan sayı sistemine ise onaltılı sayı sistemi veya 
heksadesimal sayı sistemi diyoruz. 


43 sayısını her üç sayı sisteminde gösterirsek ; 


Binary 101011 
On'lu 43 
Heksadesimal 2B 
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olmaktadır. Heksadesimal sayıları ondalık, ondalık sayılarıda heksa- 
desimal sayılara çevirecek programlar aşağıda verilmiştir. Ondalık sayı- 
yı heksadesimal'a çevirmek için proğram: 


18 PRINT"İZ"iPRINT "LUTFEN ONDALIK SAYIYI"; 
i2 PRINT" YERİINİZ"SINPUT D 


20 IF D?65535 THEN PRINT"COK BUYUK -65535 I GECMEYİINİIZ 


ge IF D?265535 THEN GOSUB 308:G0T0 19 

30 IF D<i THEN PRINT"İi DEN KUCUK SAYILAR OLMAZ" 
3e IF D<i THEN GOSUB 300:G0TO 10 

40 IF D<£?INT(CD) THEN PRINT "KESİRLİ SAYILAR OLMAZ" 
â2 IF D<2INT(<D) THEN GOSUB 300:60T0 iğ 

50 F-4036:H$-"" 

60 Y-INTCD/F) 

70 GOSUB 200 

80 D-D-YXxF:FZSINT(F/16) 

98 IF F<i THEN 119 

190 GOTU 68 

110 IF LEFT$(H$,2):-"00" THEN H$-RIGHT$(H$,2) 
ied H$-"$" H$ 

130 PRINT "HEKADESIMAL SAYIZ-";H$ 

140 END , 

200 IF Y<-9 THEN H$-H$HCHR$(Yt48) 

eld IF Y>9 THEN H#-H$YCHR$CY155) 

229 RETURN 

300 FOR Nsi TO i930:NEKT: RETURN 

READY. 


Programda ASCII kodunda verilen değerler kullanılıyor. Program 
RUN edildiğinde, örneğin 100 sayısı için 64, 1120 sayısı için 0460 
çıkmaktadır. Sayıların heksadesimal olduğunu gösteren $ işareti sayıdan 
önce yer almaktadır. 


Heksadesimal sayıları ondalık sayıya çevirme program: 


19 PRINT"iğ":PRINT"LUTFEN HEKS SAYI GIRINIZ"; 
i2 INPUT H$ 

20 Yz1:D0-0 

30 L-LENCH$):FOR N-0 TO L-I 

40 GOSUB 2900:NEXT 
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50 FRINT"ONDALIK SISTEMDEKI SAYI"ID 

190 END 

200 P$-MID$(H$,L-N,1):ASASCICP$) 

210 IF AddS OR A>1BE THEN GOSUB 300:G0TO0 280 
2e0 IF A<C65 AND A:57 THEN GOSUB 308:G0TO 288 
230 IF A<-97 AND A>:7O THEN GOSUB 300:G0OT0 288 
240 IF A<-57 THEN asA-48 

250 IF A>-65 THEN G-A-55 

260 IF A>-97 THEN d-A-37 

270 D-DtO#Y: YEYK16 

280 RETURN 

309 PRINT"KOTU HEKS SAYI..TEKRAR ET":END 

500 FOR si TU 19000:NEKT <RETURN 

READY. 


Bu programla da daha önce yapılan işlemin tersini yaparak, heksa- 
desimal sayıların ondalık sayı sistemindeki. karşılıklarını bulabiliriz. 
Örneğin 1407 sayısının ondalık sistemdeki karşılığı 6663 ve AA sayı- 
sının karşılığı ise 170 dir. 

İkili sayı sisteminde (binary )sayıların toplama ve çıkarma işlemleri 
UYGULAMALI BASIC kitabımda incelenmiş; orada bu işlemler meka- 
nik olarak düşünülerek açıklanmıştı. Oysa bilgisayarda çıkarma işlemleri 
1'in komplimenti denilen bir metotla yapılıyor. Bu metodun farkını 
kısaca açıklayalım çünkü makina kodunda JSR subroutini ile geri 
bir satır numarasına gitmek gerektiğinde, bu işlem kullanılacaktır. 

Örneğin, 39 sayısından 5 sayısını çıkarmak için 39-5—34 yerine 
39--(-5)—34 yazabiliriz. Buradaki değişiklik, 5 yerine -5 yazılıp 
39'a eklenmesidir. Yapılan işlem bir toplama işlemidir. 5 sayısını (-5) 
yapabilmek için 1'in komplimenti metodunu kullanıyoruz. 


39 sayısının binary karşılığı 100111 
5 sayısının binary karşılığı 000101 


5 sayısının 1'in komplimenti 111010 olur. Çünkü soldaki bit daima 
O yerine 1 olur. Bu, sayının negatif olmasını temin eder. 
Şimdi toplama işlemini yapalım 
39 sayısı 100111 
-5 111010 
e Ez EZ 

1100001 
soldaki fazla gelen | sayısı elde olan sayıdır ve bunun oradan çıkarı- 
hp,toplama ilave edilmesi gerekir. 
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100001 
1 
b Mi DE 
100010 
oluyorki, o da onlu sistemde 34 eder. 
Bu sistemden ayrı olarak birde 2'nin komplimenti metodu vardır. 
Bu metot bilgisayarın hızını artırır. 


7.1 6502 mikroprosesörünün iç yapısı. 


Makine kodunda proğram yazmak, bir anlamda CPU'nun (mik- 
roişlemcinin) çalışmasını anlamaktan ibarettir. Mikroişlemcinin regis- 
ter denilen, kayıt yapabilecek her biri, bir iki byte'dan oluşan hafıza 
bölümleri mevcuttur. 

Bunlardan biri "Program Counter" denilen, bilgisayara makina 
kodu dilinde verdiğimiz program adımlarını sayan, register'dir. Prog- 
ram Counter registeri 2 byte'dan yani 16 bit'ten oluşur. Bilgisayara 
verilen her bir komutdan sonra program Counter'in yani sayacın değeri 
otomatik olarak 1 artarak bir sonraki komutun adresi'de ona göre 
bir arttılılarak saptanır. Dolayısıyla komutlar bilgisayara verilirken de- 
gişik adreslere otomatikman yerleştirilmiş olur. | 

CPU'yu hafıza entegrelerine bağlayan ve data'nın aktarılmasına 
yarayan kanallar gurubuna "adres bus"' denir. Aktarılan adres değilde 
data ise bu defa ''data bus" devreye girer. Esasen verilen bir adrese 
data'nın yerleştirilmesi temel işlem olmaktadır. 

Akümülatör, CPU'da ki en önemli registerdir. Bilgisayara verilen 
değerler önce akümülatöre yüklenir. Sonra buradan ya hafızalara (RAM'- 
lara) aktarılır ya da üzerinde aritmetik bir işlem yapılır. Akümülatör'- 
deki sayıya yeni bir değer ilave edilerek bulunan sayıda tekrar akümü- 
latörde saklanır. Akümülatörde saklanan sayı 255'i geçemez. Basic'de 
program yazarken, programı oluşturan satırların hangi adreslerde sak- 
landığı hiç önemli değildi, oysaki makina kodunda yazılan bir programda 
bu adresi belirtmemiz gerekiyor. 

Makina kodunda yazılan programlar ona en yakın dil olan assembly 
dilinde hazırlanırlar. Assembiy'de yazılmış aşağıdaki satırın anlamına 
bakalım: 


.LDA#$I2 


LDA, A numaralı Akümülatöre $ 12 sayısını yükleyiniz anlamına geli- 
yor. $ işareti sayının heksadesimal olduğunu (ondalık sistemde 18) 
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# işaretide "hemen sonraki adres" metodunu kullanarak bu işlemin 
yapılması gerektiğini anlatmaktadır. 


"Immediate adressing'' veya "hemen sonraki adres" metödu ile 
akümülatöre yüklenen değer; komut (instruction) adresinden bir son- 
raki olan RAM hafızaya yüklenen değerdir. Makina kodunda yazar 
ken LDA #'nın heksadesimal karşılığı $ A9 olduğundan, LDA#$ 12 
satırını A912 olarak ifade edebiliriz (komple listebu bölümde veriliyor). 

İkinci bir adresleme metodu'dâ "'absolute addressing" veya "'mut- 
lak adresleme"' metodudur. 


LDA $ 7FFE 


satırı ile anlatılmak istenilen A akümülatörüne yüklenen değerin 7FFE 
numaralı adresten alınacağını belirtmektedir. Yani yüklenen değerin 
ne olduğunu bilmiyoruz, yalnız o değerin hangi adreste olduğunu 
biliyoruz. # işareti olmadığına dikkat ediniz. 7FFE sayılı adresten 
değeri aldıktan sonra, bu adresteki sayı ne ise aynı kalır. 

Akümülatörde bulunan bir değeri istenilen bir adrese yerleştirmek 
için STA komutu kullanılır. 

Aşağıda verilen liste Commodore 64'ün komple makine kodu 
komutları listesidir. Bunlardan bazıları belki de hiç kullanılmayacaktır. 
Listedeki komutların açıklamasını bilerek ingilizce olarak bıraktım. 
Yardımcı olması gayesiyle Türkçe karşılıkları aşağıda verilmiştir. 


immediate — Hemen , şimdi Interrupt — Kesme, durdurma 
Zero page — Sıfır sayfa Clear — Temizleme, sıfırlama 
Absolute — Mutlak Jump — Atlama 

Indirect — İndirek-dolaylı Rotate — Döndürme, sağa, sola 
implied — Belirtilen Push ,Pull — Döndürme, sağa, sola 
Branch — Başka bölüme gitme Set — Ayarlama, düzenleme 

Shift — Kayma-sağa,sola 


Yaptığı iş bölümündeki harfler A—Akümülatör, M—Hafıza, C-Carry 
ADDR, iki baytlık adres, addr ise tek baytlık adres anlamına geliyor. 
Disp, Program Counter relative adresleme'de hareket anlamına gelir. 
Byte, hemen (immediate) sonra gelen byte demektir. S, prosesör status 
register için kullanıldı. Flaglar (Bayrak) C,NveV olarak belirtildi. 
Op kodlar heksa desimal olarak verildi. 
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Assembiy 
Lisan formu 


ADC # Byte 
ADC addr 
ADC addr, X 
ADC ADDR, 
ADC ADDR,X 
ADC ADDR, Y 
ADC (addr, X) 
ADC (addr), Y 


AND # Byte 
AND addr 
AND addr; X 
AND ADDR 
AND ADDR.X 
AND ADDR, Y 
AND (addr, X) 
AND (addr), Y 


ASLA 

ASL addr 

ASL addr, X 
ASL ADDR 
ASL ADDR, X 


BCC Disp 
BCS Disp 
BEO Disp 


BIT addr 
BIT ADDR 


BMI Disp 
BNE Disp 
BPL Disp 
BRK 
BVC Disp 
BVS Disp 
CLC 
CLD. 


İmmediate 


Zero page 
Zero page, X 
Absolute 
Absolute, X 
Absolute, Y 
İndirect, X 
Indirect, Y 


Irnmediate 
Zero page 
Zero page, X 
Absolute 
Absolute, X 
Absolute, Y 
Indirect, X 
Indirect, Y 


Implied 
Zero page 
Zero page, X 
Absolute 
Absolute, X 


Relative 
Relative 
Relative 


Zero page 
Absolute 


Relative 
Relative 
Relative 
Implied 
Relative 
Relative 
Implied 
Implied 


Shift left 


Branch if C-0 
Branch if C—1 


Branch if Z—1 


OR with M, 
Test N&V 


Branch if N—| 
Branch if Z— 
Branch if N—( 
İnterrupt program 
Branch if V—4 
Branch if V—| 
Clear carry 

Clear decimal mode 
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Assembiy 
Lisan formu 


CLI 
CLV 


CMP #Byte 
CMP addr 
CMP addr, X 
CMP ADDR 
CMP ADDR, X 
CMP ADDR, Y 
CMP (addr, X) 
CMP (addr), Y 


CPX # Byte 
CPX addr 
CPX ADDR 


CPY # Byte 
CPY addr 
CPY ADDR 


DEC addr 

DEC addr, X 
“DEC ADDR 
DEC ADDR, X 


DEX 
DEY 


EOR # Byte 
EOR addr 

EOR addr, X 
EOR ADDR 
EOR ADDR, X 
EOR ADDR, Y 
EOR (addr, X) 
EOR (addr), Y 


INC addr 

INC addr, X 
INC ADDR 
INC ADDR, X 


INX 
INY 


80 


Implied 


Implied 
Immediate 


Zero page 
Zero page, X 
Absolute 


,Absolute, X 


Absolute, Y 
Indirect, X 
Indirect, Y 


Immediate 


Zero page 
Absolute 


Immediate 


Zero page 
Absolute - 


Zero page 
Zero page, X 
Absolute 
Absolute, X 


Implied 
Implied 


Immediate 


Zero page 
Zero page, X 
Absolute 
Absolute, X 


. Absolute, Y 


Indirect, X 
Indirect, Y 


Zero page 


“Zero page, X 


Absolute 
Absolute, X 


Implied 


Implied 


Clear interrupt disable 
Clear V flag 
A-M, set flags 


X-M set flags 


Y-M set flags 


X-I—X 
Y-I—Y 
A EOR M>A 


Assembiy 
Lisan formu 


JMP ADDR 
JMP (ADDR) 


JSR ADDR 


LDA # Byte 
LDA addr 
LDA addr, X 
LDA ADDR 
LDAADDR,X 
LDA ADDR,Y 
LDA(ADDR, X) 
LDA(ADDR), Y 


LDX # Byte 
LDX addr 

LDX addr, Y 
LDX ADDR 
LDX ADDR,Y 


LDY # Byte 
LDY addr 

LDY addr, X 
LDY ADDR 
LDYADDR,X 


LSRA 

LSR addr 

LSR addr, X 
LSR ADDR 
LSRADDR,X 


NOP 


ORA # Byte 
ORA addr 
ORA addr, X 
ORA ADDR 
ORAADDR,X 
ORA ADDR,Y 
ORA (addr, X) 
ORA (addr), Y 


PHA 


metodu 


Absolute 
Indirect 


Absolute 


Immediate 
Zero page 
Zero page, X 
Absolute 
Absolute, X 
Absolute, Y 
Indirect, X 
İndirect, Y 


Immediate 
Zero page 
Zero page, Y 
Absolute 
Absolute, Y 


Immediate 
Zero page 
Zero page, X 
Absolute 
Absoiute, X 


Implied 
Zero page 
Zero page, X 
Absolute 
Absolute, X 


Implied 


Immediate 
Zero page 
Zero page, X 
Absolute 
Absolute, X 
Absolute, Y 
İndirect, X 
Indirect, Y 


Implied 


Opcode 


Yaptığı 


İş-” 


Jump to ADDR 
Jump to stored 
address 


Jump to subroutine 


M—A 


M—Y 


Shift right 


No operation 
AOR M—A 


Push A on stack 


Assembiy 
Lisan formu 


PHP 
PLA 
PLP 


ROLA 
ROL addr 
ROL addr, X 
ROL ADDR 


ROLADDR,.X 


RORA 
ROR addr 
ROR addr. X 
ROR ADDR 


ROR ADDR,X 


RTI 
RTS 


SBC # Byte 
SBC addr 
SBCaddr.X 
SBCADDR 


SBCADDR.X 
SBCADDR.Y 


SBC (addr, X) 
SBC (addr). Y 
SEC 

SED 

SEl 


STA addr 
STA addr, X 
STA ADDR 


Implied 
implied 
Implied 


Impliçd 
Zero page 
Zero page, X 
Absolute 
Absolute, X 


Implied 
Zero page 
Zero page, X 
Absolute 
Absolute, X 


Implied 
Implied 


Immediate 
Zero page 
Zero page, X 
Absolute 
Absolute, X 
Absolute, Y 
İndirect, X 
Indirect, Y 


Implicd 
Implied 
Implied 


Zer6 page 
Zero page, X 
Absolute 


Push S on stack 


Pull A from stack 
Pull S from stack 


Rotate left 


Rotate right 


Return from interrupt 


Return from sub- 
Routine 


A M C*'—M 
C* isa borrow 


Set carry flag 


Set decimal mode 


Setinterruptdisabic 


A-—M 


STAADDR.X Absolute, X 
STAADDR.Y Absolute, Y 
STA (addr. X) İndirect, X 


STA (addr), Y 


STX addr 
STX addr, Y 
STX ADDR 


Indirect, Y 


Zero page 


.Zero page, Y 


Absolute 


Assembiy 
Lisan formu 


STY addr Zero page 

STY addr, X Zero page, X 94 

STY ADDR Absolute ” 8C 

TAX Implied AA A—X 
| TAY Implied A8 A—Y 
i TYA İmplied 98 Y—A 

TSX Implied BA S—X 

TXA Implied SA X—A 


TXS Implied 


STA$3FO! 


yazmakla bilgisayara akümülatörde ne değeri varsa, onu 3FO1 numaralı 
adrese yerleştir demek istiyoruz. 

LDA komutuyla ilgili başka bir adresleme metodu'da"'zero page 
addressing" veya "sıfır sayfa adresleme"'dir. 


LDA$3F 


satırında adres 3F, aslında 003F dir. İlk bayt 00 olduğundan bu adı al- 
mıştır. Bu türde komutlar ancak FF olabilir, BoryaMa en fazla 256 
adresten değer alabilir. 

İndeksli adresleme metodunda ise bilgisayarın X veya Y registe- 
rinde kayıtlı adresten, örneğin; 10 adres ilerideki bir adresten değer 
alarak akümülatöre yerleştirmesini istiyoruz. X veY registerleride 1'er 
byte'lik hafıza bölümleridir. Daha önce "proğram counter" registeri, 
"akümülatör" registeri demiştik. Şimdi de X ve Y registerleri diyoruz. 


LDA $ 7000, X 
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denince A akümülatörüne yüklenecek değerin adresini bilgisayar $ 7000 
sayısına X registerindeki sayıyıda ilave ederek buluyor. Eğer X regis- 
terinde 4A değeri varsa, istenilen adres $ 704A olmaktadır. Bilgisayar 
o adrese giderek değeri alıp gelecek ve akümülatöre yerleştirecektir. 
LDA $7000,Y yazarsak aynı işlem Y registeri için geçerli olmaktadır. 
X ile Y registeri arasındaki fark ise, Y registeri ile "sıfır sayfa adresleme" 
kullanılamamasıdır. , 

LDA OAX yazarsak,bu LDA 000A ,X anlamına gelir, eğer X registerinde 
$ lAdeğeri varsa, aranan adres 0024 olmaktadır. Bilgisayar 09024 adresin- 
deki değeri alıp gelecektir. 


LDA$ OA,Y ise geçerli bir komut değildir. 


İndeks register kullanmanın faydası bu registerlerdeki değerleri bağım- 
“sız olarak değiştirebilme imkanından gelmektedir. DEX, DEY ve INX, 
INY komutlarıyla da bu registerlerdeki değerler birer azaltılıp veya 
arttırılabilir. (DE-azalmak, IN-artırmak için kullanılıyor). Bir dizi adresteki 
byte'ları hafızada başka bir bölgeye aktarmak için bu komutlar kullanılır 

"İndirect addressing" veya "'dolaylı adresleme" metodunda da 
adresi bulmak için önce başka bir adrese gitmek gerekiyor. Fakat bunları 
kullanmak ilk fırsatta gerekli olmadığından burada bahsediimeyecektir. 


7.2 Diğer registerler (özel hafıza bölümleri) 


P register veya Prosesör statüs register'e aynı zamanda Flag (işaret- 
bayrak) registerde denir. Bununla anlatılmak istenen, eğer bir olay 
gerçekleşiyorsa, bu registerde o olayla ilgili bit | oluyor yani bayrak 
havaya kalkıyor, eğer gerçekleşmiyorsa O oluyor. Yani bayrak inmiş 
oluyor. | 

P register'deki 8 bit'den 7'si bir önceki basamakta neler olduğunu 
kaydeder. Mesela bir önceki adımda bir çıkarma işlemi olmuşta A re- 
gisterinde O değeri kalmışsa bunu CPU'ya belirtmek için bit'lerden 
biri | değerini alır. Toplama durumunda da akümülatördeki sayı 8 bit'e 
sığmayacak şekilde olupta | artıyorsa,P register'deki bitlerden bir ta- 
nesi bu durumu göstermek için hazırlanmıştır. 

Aşağıdaki örnekte gösterilen sol baştaki |, P registerdeki carry flag 
(eldeki sayı) tarafından belirtilir. i 


Akümülatördeki sayı 1 O 
11 


101111011 
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Şimdi akümülatör'deki değer 01111011, 
Carry flag değeri ise 1 dir. 
P registerdeki bit'lerin ne için kullanıldığı aşağıda verilmiştir. 


Bit No: 7 6 S5 4 3 2 1 


İnterrupt 
(kesme) 


Mod 


Z, Sıfır flag, eğer bir işlemin neticesi'tam sıfır ise bu bit 1 oluyor. 
Onun dışında daima 0 dır. 
N, Negatif flag bir işlemin cevabı eksi ise 1 olur. 


7.3 Register'lerin Çalışması 


Akümülatörde bulunan bir sayı üzerinde sola kayma (shift left), 
sağa kayma (shift right) sola döndürme (rotate left) ve sağa döndürme 
(Rotate right) işlemleri yapılabilir. Bunları yapmak için aşağıdaki şema- 
ya bakalım; 


Sola kayma (shift left) 
Akümülatör veya hafıza adresi 
c4(7(6(5(4J3f2)1fo jo 


Sağdaki O numaralı bit'e O koyduk, diğerlerini birer kaydırarak 7 numa- 
ralı bit'deki değeri C (carry) flag bit'ine aktardık. 


Sağa kayma (shift right) 
Akümülatör veya hafıza adresi 
ALAKA ELE LARA il 


7 numaralı bit'e O değeri konuyor. 7'deki değer 6'ya, 6'daki değer 5'e 
olmak üzere kayarak sağa doğru gidiyor, 0'daki değer ise carry flag'e 
aktarılıyor. 
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Sola döndürme (rotate left) 


Akümülatör veya hafıza adresi 
Le RR 


carry flag yardımıyla 7 numaralı bit'in değerini O numaraya taşıyor, 
diğerlerini kaydırıyoruz. 


Sağa döndürme (rotate right) 
Akümülatör veya hafıza adresi 


çi jeolopelerepiju Gi 


Carry flag yardımıyla O numaralı bit'in değerini 7 numaraya aktarıyor 
ve diğerlerini kaydırıyoruz. 


Bunları en iyi şekilde örneklerle görebiliriz. 


Sola kaydırma ololılılojlılo önce 
pale eee elele pe 


Sağa kaydırma ÇOJETOJLILORİNJ önce 
| yojolıfojıjıfojı | sonra 


6502 mikroprosesöründe, akümülatörde birer birer arttırma veya 
eksiltme yapılamıyor. Bu işlem ancak hafızadaki baytlar için yapıla- 
bilir. Onun için programcı bu artırma (inkrement) eksiltme (dekrement) 
işlemlerini asıl işlemden önce veya sonra yapmalıdır. 

CMP—komutu hafızadaki bir baytın değeri ile, akümülatördeki 
değerin mukayesesini yapar. Eğer netice eşitse o durumda P registerdeki 
zero flag (sıfır.bayrağı) | değerini alır. 

Örneğin akümülatörde $ 4F değeri varken biz, 


CMP $ 327F yazarsak 
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Bu durumda 327F adresindeki değer $ 4F ise, P register'deki zero flag 
i olur. Akümülatördeki değer değişmez. 

CMP komutundan ayrı bir dizi "test yap ve başka bir bölüme git" anlamı- 
na gelen komutlar vardır. Bunları kısaca sıralayalım ve ne için kullanıl- 
dığını görelim. 


BCC — Branch on carry clear — Eğer Carıy flag Oise yeni verilen 
adrese git. 

BCS — Branch on carry set — Eğer carry flag | ise verilen yeni 
adrese git 

BEG — Branch if egual to zero — Zero flag İ ise verilen adrese git 

BNE — Branch if not egual to zero — Zero flag Oise verilen yeni 
adrese git i 

BMI — Branch on result minus — En son işlemin neticesi negatif 

, ise verilen yeni adrese git. 

BPL — Branch on result positive — En son işlemin neticesi pozi- 
tif ise verilen yeni adrese git. 

BVC — Branch on overflow clear — overflow (taşma) flag O ise 
verilen yeni adrese git. 

BVS — Branch if overflow set — overflow (taşma) flag İ ise 
verilen yeni adrese git. 


Bu komutların hepsi PC (Program counter) —relative adresleme kullan- 
maktadır. Yeni adresi elde etmek için PC registerdeki adrese, komutla 
ilgili bayt'dan sonra gelen bayt'ın değeri eklenir. 


JMP — Jump to new address — Bu komutdan sonra gelen adrese gi- 
diniz. 


7.4 İlk makina kodu programı 


Commodore 64'de çalıştırmak istediğiniz programın başlama 
adresini SYS komutu ile belirleyebiliriz. Bu adres genelde makinanın 
diğer programları ile karışmaması için 40800 gibi yüksek bir değer 
taşır. Programın sonunu belirtmek içinde RTS komutu kullanılır, böy- 
ece bilgisayar tekrar BASIC moduna döner. 

Makina kodunda ilk programımız hafızaya bir byte yerleştirmek 
olsun. Bunun için, 
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ORG 40705: Byte'ları bu adresten itibaren yerleştirelim. 

LDA #$55: Akümülatöre $55 sayısını yerleştirelim. 

STA$O9FCA4: Bu sayıyı $9FC4 yani 40900 numaralı adrese yerleştirelim. 
RTS: Tekrar BASIC moduna dönelim. 


ORG aslında bir komut değildir. Programın bu adresten itibaren bilgi- 
sayarın hafızasına yerleştirileceğini belirtir. LDA, akümülatöre $ 55 
yani 85 sayısını hemen yerleştireceğimizi belirtiyor. # işareti direk 
bu sayının hafızaya yerleştirildiğini gösteriyor. STA'da Akümülatördeki 
sayının kendisinden sonra gelen $PDFC4 adresine yerleştirilmesi gerekti- 
ğini gösteriyor. 
RTS (return to subroutine) komutuyla da bilgisayar tekrar BASIC'e 
dönüyor; 

Şimdi assembiy'de yazılı bu programı makina koduna dökelim: 


40705 A9 
40706 55 
40707 8D 
40708 C4 
40709 9F 
40710 60 


LDA komutunun karşılığı A9 dur. STA komutunun karşılığı 8D dir. 
9FC4 adresini ise önce alçak byte ve sonra yüksek byte olarak yazıyo- 
ruz. Bu daima böyledir, bunu unutmayalım.i RTS komutu'da 60 olarak 
heksadesimal'da yazılıyor. Değerlerin tümünü bu bölümde verilen 
, makina kodu ile ilgili tablodan almış bulunuyoruz. 

Birde bu program, bilgisayarın hafızasına BASIC programı yar- 
dımıyla vermek var. Bunun içinde 


10 POKE 56,159:A-40704 

20 FOR Ns1i TO G:READ DZ 

30 POKE AtN,DZSNEXT 

48 SYS 40705 

50 DATA 169,85,141,136,159,96 
READY. 


programını yazmak gerekir. Buradan da anlaşılıyorki programı 40705 
den itibaren yerleştiriyoruz ve DATA satırındaki değerler heksade- 
simal'dan ondalık sisteme çevrilmiş olarak karşımıza çıkıyor. 
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Proğramı RUN ettikten sonra PRINT PEEK (40900) yazarsak 
85 sayısını ekranda görürüz. Zaten yapmak istediğimizde 40900 numaralı 
adrese 85 sayısını yerleştirmekti. Bunu yapmış oluyoruz. Basit olmakla 
beraber iyi bir başlangıç yaptık. 


7.5 Örnek programlar 


Örnek — | 
Akümülatöre bir byte yükleyelim, onu bir bit sola kaydıralım 
ve sonrada o sayiyı aldığımız adresten bir sonraki adrese yerleştirelim. 
Daha önce bahsettiğimiz gibi bir sayıyı bir bit sola kaydırmak 
demek onu iki ile çarpma anlamına gelir. 
Örnegin 0 001011 sayısının değeri 11 dir. Bunu sola bir bit kaydırır- 
sak 00 10110 olurki o da 22 eder. Byte'ı daha önce belirttiğimiz gibi 
sola kaydırmak, o sayıyı iki ile çarpmak anlamına gelir. 
Şimdi programı Assembiy lisanında yazarak makina koduna çevi- 
relim. 


Assembiy Makina kodu 
LDX # $0 A2 00 

LDA $9FC4,X BD C4 9F 
ASLA OA 

INX E8 

STA $9FC4,X 9D C4 OF 
RTS 60 


Bu proğram için indeksli adresleme metodu kullanmak en uygunu 
oluyor. Önce LDX komutuyla X registeri'ne O sayısını yerleştirelim. 
Sonrada LDA komutuyla 9FC4 artı X registerdeki değerin toplamıyla 
elde edilen sayıyla belirlenen adresteki değeri akümülatöre yerleştiriyoruz. 
X registerdeki değer şimdilik O olduğundan bu adres 9FC4 veya 40900 
olmaktadır. 

ASL A ile Akümülatördeki byte sola bir bit kaydırılıyor. Böylece 
akümülatördeki yeni değer eski değerin iki katı oluyor. Şimdi X regis- 
terdeki değeri INX komutuyla 1 arttıralım. STA $OFC4,X ile de akümü- 
latördeki iki ile çarpılan sayıyı 9FC4--X yani 40901 numaralı adrese 
yerleştirmiş oluyoruz. RTS ile de Basic moduna dönüyoruz. 

Bu işi yapmak için gereken program ise 
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18 POKE 56,153:A-40704 

20 FOR N:z1 TO İi:READ DZ 

30 POKE AtN,DZ:NEKT 

48 FOKE 40300,7:SYS 48705 

58 PRINT"2 & ":PEEK (40300);"-";PEEK(40301) 
60 DATA 162,0,183,136,153,10 

70 DATA 232,157,136,153,36 


şeklindedir. 40900'e yerleştirilen 7 sayısı, 40901 numaralı adreste 
14 olmaktadır. Bunu da makina kodu programı ile yapmış oluyoruz. 


Örnek — 2 

Makina kodu kullanarak ekrana COMMODORE yazısını yazdıra- 
bilirmiyiz? 

Burada iki önemli işlem yapmaktayız. Birincisi Commodore 64 
yazmak için bu harfleri ASCII kodlarıyla çağırabilmek. İkincisi de 
bunları ekranı temsil eden hafıza bölümüne göndererek ekranda görün- 
mesini sağlamak. 


Assembiy Makina Kodu 
LDX #$0 AZ 00 
LDA #$43 A9 03 
STA$OSF4,X o 9D F405 
INX E8 

LDA # $4F A9 OF 
'STA $05F4,X 9D F405 
INX E8 

LDA #$4D A9 OD 
STA $0SF4,X 9D F405 
INX . ES 

LDA #$4D A9 OD 
STA$ 05F4,X 9D F405 
INX E8 

LDA #$4F A9 OF 
STA $05F4,X 9D F405 
INX ES 

LDA #$ 44 A9 04 
STA $05F4,X 9D F405 


INX E8 
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LDA #$4F A9 OF 


STA $05F4,X 9D F405 
INX E8 

LDA #$52 A9 12 
STA $05F4,X 9D F405 
INX E8 

LDA #$ 45 A9 05 
STA $ 05SF4,X 9D F405 
INX E8 

RTS 60 


Şimdi proğramı BASIC modunda hafızaya aktaralım. 


iğ POKE 56,159:A-40704 

20 FOR Nsi TO S7:READ DZ 

380 POKE AtN,DZ:NEXT 

282 PRINT"I7" 

35 SYS 40705 

40 DATA 162,0,169,3,157, 244, 5,2320,169,15,157/ 
45 DATA 244,5,2032,169,13,157/,244,5,232 
50 DATA 169,13,157,244,5,232,169,15,157 
55 DATA 244,5,2320,169,4,157,244,5,232 

69 DATA 169,15,157,244,5,232,1693,183,157 
65 DATA 244,5,232,169,5,157,244,5,232,96 


Program RUN edilince ekranın ortalarında COMMODORE yazısı görü- 
lecektir. Eğer bu yazıyı ekranda daha değişik bir yerde istiyorsanız 
o zaman STA 05F4,X komutundaki 05F4 değerini değiştirmek gere- 
kecektir, 05SF4'un değeri 1520 dir. Bu değer ekran için 1024 ile 2023 
arasında herhangi bir değer olabilir. Harflerin sayısal karşılıkları Commo- 
dore 64 User Manuel'in 143. sayfasındaki tablodan alınmıştır. Bu değerler 
karakterlerin ASCII karşılıklarından 64 sayısı çıkarılarak elde ediliyor. 


Örnek— 3 

'Bir önceki örnekte COMMODORE yazısını yazmak için her harf 
için gerekli olan LDA, STA, INX komutları 9 defa kullanıldı. Eğer 
COMMODORE yerine CCCCCCCCC şeklinde 9 defa C harfi yazdır- 
saydık, kullanacağımız metot daha farklı olarak bir döngü oluşturmak 
olacaktı. 

Bu örnekte bilgisayarın kullandığı bütün alfabetik karakterleri 
ekrana yazdırmaya çalışalım. 
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CIK: 


Assembiy kodu Heksadesimal karşılığı 


LDX #$00 A2 00 
LDA #$01 A9 0l 

: CMP#$7F C9 TF 
BEG CİK FO CIK 
STA $0400,X 9D 00 04 
INX E8 

ADC #01 69 Ol 
BNE DON DO DON 
RTS 60 
READ. * 


10 POKE 56,159:A-40704 

20 FOR Msl1 TO İYGREAD DE 

30 POKE ArN,DESMNEKT 

4d SYS 40705 

S0 DATA 162,0,163,1,201,i2r,240,10,157,0,41,232, 


105,1,206,244,Y6 


Bu programda karakterlerin ASCII karşılıkları 1—127 arası değerler 
almaktadır (Bak. Commodore User Manuel sayfa 143). CMP komutuyla 
Akümülatördeki değerin son değer olup olmadığı kontrol ediliyor. 
BEG komutuyla döngü tamamlanıyor, yani 10 adım ileri gidiliyor. 
ADC komutuyla da Akümülatörün değeri | arttırılarak diğer karakterleri 
yazma imkanı doğuyor. INX komutuyla da X registerdeki değer 1'er 
Mer arttırılarak karakterlerin ekranda sırayla görülmesi sağlanmaktadır. 
BNE komutuyla da eğer 127 karakter oluşmadı ise CMP komutuna 
dönüş yapılıyor. Burada geriye 10 adım gidiliyor. 244 sayısı ise, jadım 
sayısına 2 ilave edip 256 dan çıkarılarak elde edildi. Geri dönüşlerde 
hep bu kural uygulanmaktadır. 


Örnek — 4 i 

Yalnızca bir karakteri 255 defa ekranda yazdırmak için X regis- 
terindeki değeri İ'er arttırarak 255'e ulaştıktan sonraki artış, registeri 
0'layacağı için aşağıdaki programı'da yazmak mümkün oluyor. 


9Z 


Assemiy kodu Heksadesimal karşılığı 


LDA #$OA A9 O0A 
LDX #0 AZ 00 
: STA$O4 00, X 9D 00 04 
INX E8 
BNE DON DO DON 
RTS 60 


109 POKE 56,153:A-49704 

20 FOR Msi TO 1i:READ DZ 

30 POKE AtN,DESNEKT 

539 SYS 40705 i 

60 DATA 159,10,162,0,157,0,4,232,203,258,36 
READY. 


Bu program (ekrana 256 adet J harfi yazabiliyor. BNE komu- 
tuylada STA satırına geri dönüyoruz. 


Örnek — 5 

Ekranın tamamını verilen bir karekterle doldurmak için x ve y 
registerleri doldurmak yeterli olmuyor. Çünkü ekranda 40x24-960 ka- 
rakterlik yer var. Halbuki registerler ancak 256 karaktere kadar değer 
alabiliyorlar. Bu işi yapmak için indirek adresleme metodu kullanılmalıdır. 
Kullanmak istediğimiz adres, bu durumda 04 00 iki byte halinde sak- 
lanıyor. Bunlar sıfır sayfa hafıza halinde, önce alçak değerli olanı, sonrada 
yüksek değerli olanı saklanmaktadır. 


Assembly programı Heksadesimal karşılığı 
LDA #$07 A9 07 
LDX #0 A2 0 
STX #$94 86 96 
LDX #4 A2 4 
STX #6 95 86 97 
LDY #0 A0 0 
:STA$94 ,Y 91 96 
INY CS 
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BNE DON DO DON 


INC $95 E6 97 
LDX $95 AG 97 
CPX #8 EO 8 
BNE DON DO DON 
RTS 60 
READY. 


10 POKE 56,159:A-40704 

20 FOR Nz1i TO 26:READ DZ 

30 POKE A#N,DZ:NEKT 

40 SYS 40705 

50 DATA 169,7,162,0,134,150,162,4,134 
55 DATA 151,168,0,145,150,200,208,251 
60 DATA 230,151,166,151,224,8,208,243,96 


Bu programla ekranın tamamı G harfi ile dolmuş oluyor. 
7.6 Monitor programı 


Makina kodu programlarını bilgisayara aktarmak için Süper Mon 64 
adında bir program vardır. Bu programla hiç BASIC kullanmadan makina 
kodu programınızı bilgisayara aktarıp RUN edebiliriz. 

Bu programla kullanacağınız komutlar aşağıda listelenmiştir. 


M — Hafızadaki programı ekrana heksadesimal olarak listelemede kul- 
lanılır. M'den sonra başlama adresi ve bitiş adresi 4'lü heksadesimal 
sayılar olarak verilmelidir. 

S — Makina kodu programını kasete veya diskete kaydetmek için kul- 

lanılır. 

L — Makina kodu programını kasetten veya disketten bilgisayara yük- 
lemek için kullanılır. 

G — Bir programı RUN etmek için kullanılır. G'den sonra 4'lü heksa- 

© — desimal sayı halinde programın başlama adresi verilmelidir. 

H — Program içinde bir bölümün içindeki baytları görmek için kullanılır. 
Kendisinden sonra başlama ve bitiş adresleri verilmelidir. 
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T — Programın bir bölümünü hafızada başka bir bölüme aktarmak için 
kullanılır. Aktarılacak bölümün başlama ve bitiş adresleri ve blokun 
aktarılacağı bölümün başlama adresi verilmelidir. 

D — Makina kodunu Assembiy lisanına çevirerek verir. Başlama ve bitiş 
adresleri D'den sonra verilmelidir. 


Bu programı Örnek — 4 için kullanmak istersek ne yapmalıyız? 


I — ÖnceM 09FI O9FA yazarak 40705 'den sonraki 16 adresin değer- 
lerini ekrana alalım. 

2 — Ok tuşlarını kullanarak ekranda yukarı çıkınız ve 09F1 den itibaren 
görülen değerlerin üzerine A9 OA A2 00 9D 00 04 E8 yazalım 
ve Return tuşuna basalım. 

3 — Şimdide aşağıdaki satıra DO FA 60 yazarak komutları tamam- 
iayalım. 

4— GO9FI yazarsak daha önce hazırladğımız proğramın tekrarını elde 
etmiş oluruz. 


8. BÖLÜM DAHA COK COMMODORE 64. 
8.0 Giriş 


Commodore 64'de yapılacak projelerin sayısı çok fazladır. Bu 
bölümde koduna yakın olanlardan bazıları incelendi ve ilgili proğramlar 
verildi. 


8.1 Scroll Hsreketi 


Ekranda yazıların aşağıdan yukarı, sağdan sola doğru kaymaları, 
ekranı kullanma bakımından ilginç bir uygulama alanı olmaktadır. 
Aşağıdaki programda 17 numaralı register hafızası kullanarak bu işlem 
yapılıyor. Son üç bit, 8 adet nokta satırlarını (raster) yukarıya kaydırıyor. 
Video kontrollere yalnızca 24 adet satır göstermesini belirtebiliriz. Bu 
durum 17 nolu registerin 3'üncü bit'ini sıfırlamakla oluyor. 


20 FOR Jsl TO 1LO:NEXT 

100 VIDEO-532746 

110 LINEZVIDEO*17 

115 X$£ÜHR$(C19):FOK izl TO 2A4:X$-X$*CHR$(17): NEXT 
120 PFOFE LINE,FEEK(LINE) AND NOT 8 

130 FOKE LINE,FEEK(LINE) AND 248 OR 7 

140 NEN$İ:A$-"ELEKTRA BILGISAYAR"4STRS$(N) :GOSUB Z2Ö00:POKE 537280,N:G0TO 140 
200 PFRINT:EPRINT X$0$; 

210 FOR 1-7 TO Ö STEP -1 

220 FOKE LINE,PEEK(LİNE) AND 248 OR 1 

2350 FOR Js1i TO Z2S50:NEXT 

240 NEXT:RETURN 


115 numaralı satır 1 adet "kursor home" ve 24 adet "kursor down" 
karakteri tarif ederek, kürsörün 25. satıra yerleşmesini sağlar. 


120 satırı 17 no'lu register'deki (hafızadaki) 3 no'lu bit'i 
sıfırlayarak, ekranda yalnızca 24 satır gözükmesini sağlayabi- lir. 


130 satır 0, 1, 2 bit'lerini 1'e set yaparak, ekranda 24 satırın 
görülmesini ve 25. satırın altta hazır olmasını sağlar. 


140 satırı ile sayaç N, bir artırmaktadır. Ekrana yazılacak yazı 
A$'da saklanmaktadır. 


210-240 arasındaki satırlar ekranı 8 raster kadar yukarı 
kaydırmaktadır. Buradaki döngü kaydırmanın hızını belirler. 


8.2 Klavye Tuşlarını Yeniden Düzenlemek 


Commodore 64'ün klavyesi 8x8 şeklinde bir matris halinde 
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düzenlenmiştir. Matrislerde, 8x8 deyince 8 satır, 8 kolon olduğunu bili- 
yoruz. İlk rakam satırı, ikinci rakam ise kolonları verecektir. Hangi satır 
olduğu, adresi $DC00 (decimal 56320) olan A port'u, hangi kolon olduğu 
ise adresi $DCOI (desimal 56321) olan B port'undan (çıkışından) belirlen- 
mektedir. Her tuşun değeri matristen, O ile 63 arasında bir sayı olarak 
tesbit edilmektedir. Hesaplamanın nasıl yapıldığı aşağıdaki tablodan daha 
iyi anlaşılmaktadır. 


Kolon —> 
Satır (0 1 2 3 4 5 6 7 
(0 ! Deli Return Kürsor o F7 FI F3 F5 Kürsor 
Sağ aşağı 
1 3 W A 4 Z Ss E Shift.sol 
2 5 R D 6 Cc F T X 
3 7 Y G 8 B H U V 
4 9 I J 0 M (0) N 
5 * P L - . : a , 
6 |ç işareti * : HOME Shift sağ — A / 
7 I ok işareti CTRL 2 Space C— (0) STOP 


Commodore 64'de bu tablo'dan 4 tane mevcuttur. İlk tablo AS- 
CI kotlarını vermektedir. Shift tuşu basılmış halde ikinci tablo, Com- 
modore (Cz) tuşu basılınış halde üçüncü tablo, ve CTRL tuşu basılmış 
halde ise dördüncü tablo elde edilmektedir. 


Daha önce belirtilen bir karakteri veren bir tuş (örneğin A) daha 
başka bir karakteri verecek şekilde programlanabilir. Bu iş için o tuşun 
tablodaki değerini değiştirmeliyiz. Tablolar ROM hafızada saklı 
olduğundan, onlar değişemez fakat, Commodore 64'de aynı adres 
bölümünde ROM hafıza ile beraber RAM hafızada mevcuttur. Eğer 
ROM'da ki değerleri RAM'a aktarabilirsek orada değişiklik yaparak tuşları 
istediğimiz gibi programlayabiliriz. Aşağıdaki programa bakalım; 


100 FOR 1zâ40$80 TO 49151 :REM BASIC KAM KUFYALAMA 
1(l0 POKE İ,FEEK(İ) :NEXT 

120 FOR 131444096 TO 655275 <REM KERNAL KOPYALAMA 
1320 FOKE I,FEEF(Cİ)£NEXT 

140 POKE 1,553 


NX” 


100,110,120 ve 130 numaralı satırlar ROM'u aynı adreslerdeki 
RAM'a aktarmaktadırlar. Basic RAM adresleri 40960'dan 49151'e kadar, 
kernal adresleri ise 57344'den *65535'e kadardır. ROM'dan RAM'a 
değişiklik 140 numaralı satırda yapılarak kernal'in RAM'dan çalışması 
sağlanmaktadır. Şimdi her tuşun kodunu değiştirebiliriz. Önce yukarıda 
belirtilen 4 ayrı tablonun başlama adreslerini verelim. 


Tablo 1 Normalinde $EB81 - 60289 

Tablo 2 Shift Tuşu ile $EBC2 - 60354 
Tablo 3 (Commodore tuşu ile i $EC03 - 60419 
Tablo 4 With CTRL $EC78 - 60536 


Kodunu değiştirmek istediğiniz tuşu bulmak için önce satır nu- 
marasını bularak 8 ile çarpınız-çıkan sayıya kolon numarasını ilave edi- 
niz. Örneğin Y harfinin kodu 25, M harfinin kodu ise 36 olmaktadır. 
Böylece 4 tablo'yu kullanarak 4x64- 256 karakteri tarif etmek 
mümkündür. Bu duruma istisna olarak STOP/RESTORE tuşunu 
söyleyebiliriz. Bu tuş ROM hafızayı tekrar aktif hale getirdiğinden önceki 
satırlara ek olarak 


150 POKE 64982, 53 
yazarak RAM'ın hafıza adresi değiştirebilir. Şimdide 
. POKE  60300,65 


yazarsak, tablo'daki 60300 adresine karşılık olan 4 rakamına bastığımızda 
ASCII değeri 65 olan A harfini ekranda görebiliriz. 


POKE o 60301,66 


ile ise Z tuşunu B harfine çevirmiş oluyoruz. Uygulama olarak bir sıra 
tuşu türkçe klavyeye çevirelim 


160 POKE 60299,86 
170 POKE 60302,73 
180 POKE 60307,69 
190 POKE 60310,65 


200 POKE 60315,85 
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210 POKE 60318,84 
220 POKE 60323,75 
230 POKE 60326,77 
240 POKE 60331,76 


yazarak programı RUN edersek A, S 
v,1I 


, 


şeklinde değişecektir. 
8.3 Kürsör ile ilgili komutlar 


Commodore 64'de kürsörün hareketini kontrol eden bilgiler 
aşağıdaki adreslerde saklanmaktadır. 


211 No'lu adreste kürsörün o satırdaki hangi kolonda 
214 No'lu adreste kürsörün hangi satırda 


olduğuna ait bilgiler saklanmaktadır. Aşağıdaki programı RUN ederek 


100 REMSET KURSOR 

110 INFUT "“SIRA";R 
120 INFUT "KOLON"3:C 
120 FOKE 214,R 

140 POKE 211.C 

150 SYS 58640 

160 FRINT "BURADAYIM"; 


BURADAYIM yazısını ekranda istediğiniz yere yazdırabilirsiniz. 


Kürsorü ON/OFF, yani aç/kapa yapmak ta mümkündür. Bu işlem 
204 numaralı adrese sayı girmekle oluyor. Eğer 204'deki değer O ise 
kürsör yanıp sönüyor, 1 ise yanıp sönmüyor demektir. 


100 FOKE 204,Ö:REM CURSOR ACIK 

110 GET As:IF A$-"" THEN 1ilÖ:REM TUSU BEKLE 
120 FOKE 2704,1:REM KURSOR KAFALI 

170 FRINT A$ 


8.4 Tekrarlayan Tuşlar ve WAIT komutu 


PC'de çalışanlar bilirler, her tuş uzun süre basıldığında ekranda 
aynı harf devamlı tekrarlanmaktadır. Commodore 64'de bu durum yalnızca 
ara çubuğu ve kürsör kontrol tuşları için geçerlidir ve yalnızca bu tuşlar 
kendilerini tekrarlamaktadırlar. 


POKE 650,128 o Tuşların tekrarı için 
POKE 650,0 Yalnızca kürsörün tekrarı için 
POKE 650,64 Tekrarı durdurmak için 


Tekrarlama işleminin hızını, 651 ve 652 numaralı adreslere 
değerler girerek değiştirebiliriz. Fakat bu değerler kernal tarafından de- 
vamlı yenilendiğinden, ROM değerleri önce RAM'a aktarmak gerekiyor. 


WAIT komutu bekleme işlemini yerine getitir.. WAIT A,B 
şeklinde kullanıldığında A adresindeki değeri getirerek buna B değeri ile 
AND mantıksal işlemini uygula ve eğer netice sıfır değilse, programın 
kalan kısmına devam edilir. Sıfır ise bekleme işlemi devam eder. En uy- 
gun kullanma yöntemi, bir tuşa basıncaya kadar bilgisayarı bekletmekte- 
dir. 653 Numaralı adres, Shift, Commodore veya Control tuşlarının 
basılıp basılmadığını kontrol etmektedir. Aşağıdaki satır bilgisayarı 
Control tuşuna basıncaya kadar bekletecektir. 


WAIT 653,4 
Aynı şekilde shift ve Commodore tuşları için sırayla 
WATT 653,1 
WAİT 652,2 


yazmalısınız. İstenilen başka bir tuşun basılmasına kadar beklemek is- 
tiyorsanız, 203 numaralı adresi kontrol eimeniz gerekecektir. 


8.5 (Fonksiyon Tuşlarının Kullanımı 


Commodore 64'de 4 adet fomksiyon tuşu vardır. Shift tuşu ile 
kullanıldığında fl ... f8 olmak üzere 8 adet fonksiyonu bu tuşlara prog- 
ramlamak mümkündür. Bu tuşlar programınızın menu kontrolunda veya 
GET kumutuyla kullanılabilir. Fonksiyon tuşlarınının ASCII değerleri 
aşağıdaki gibidir. - 


100 


Fonksiyon Tuşu ASCI Değeri Fonksiyon Tuşu ASCI DEĞERİ 


(Shift ile) 
FI 133 F2 137 
F3 134 F4 138 
F5 135 F6 139 
F7 136 F8 140 


Aşağıdaki küçük proğramda fonksiyon tuşlarına basılarak proğramın 
değişik bölümlerine giderek farklı işlemler yapma olanağını elde ediyoruz. 


100 GET AS:IF A$-"“" THEN 100 
110 AZASCCAS) 

AzIıIZ& THEN GOSUB 200 

THEN GOSUR 400 

5 THEN GOSUB 500 

THEN GOSUB 600 

THEN GOSUB 700 

THEN GOSUB 800 

THEN GOSUR 900 

THEN GOSUB 1000 


200 REM Fi TUSU ICIN 

SlÖ PFRINT"MUSTERI KAYIT BOLUMU" 
590 RETURN 

400 REM FZ TUSU ICIN 

410 PRINT"MUSTERI SILME BOLUMU" 
490 RETURN 

500 REM FS TUSU ICIN 

510 FRINT"“MUSTERI HESABI" 

590 RETURN 

60Ö REM F7 TUSU ICIN 

6l0 FRINT"ALACAKLAR LISTES1" 
670 RETURN 

700 REM FZ TUSU ICIN 

710 FRINT"ADRES ETİKETLEME" 

790 RETURN 

800 REM F4 TUSU ICIN 

810 PFRINT"MUSTERI ISIM ADRES DEĞGISİIKLIGI" 
390 RETURN 

900 REM F6 TUSU ICIN 

910 FRINT"SENETLER BOLUMU" 

990 RETURN 

1000 REM F8 TUSU ICIN 

1010 FRINT"CEKLER BOLUMU" 
1090 RETURN 


IF ile başlayan satırları daha iyi düzenleyerek proğramı kısaltabiliriz. 
Böylece basılan tuşların fonksiyon tuşları dışında bir tuş olması da 
önlenmiş olur. 
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iLÜ GET AS$:IF A$-“"“ THEN 100 

110 ASASC(CAS$):IF A<13Z OR A>140 THEN 100 
120 ON A-132 GOSUB 300,400,500,600,700,800,900, 1000 
279 END 

300 REM F1 TUSU ICIN 

510 FRINT"MUSTERI KAYIT BOLUMU" 

5970 RETURN 

4V0 REM FZ TUSU ICIN 

410 PRINT"MUSTERI SILME BOLUMU" 

490 RETURN 

500 REM FS TUSU ICIN 

510 FRINT"MUSTERI HESABI" 

590 RETURN 

600 REM F7 TUSU ICIN 

610 PFRINT"ALACAKLAR LISTESİI" 

690 RETURN 

700 REM FZ TUSU ICIN 

710 FRINT"ADRES ETİKETLEME" 

790 RETURN 

800 REM FA TUSU ICIN 

810 FRINT"“MUSTERI ISIM ADRES DEGISIKLIGI" 
8950 RETURN 

900 REM Fö TUSU ICIN 

910 PRKINT"SENETLER BOLUMU" 

990 RETURN 

1000 REM FB TUSU ICIN 

1010 PRINT"CEKLER BOLUMU" 

1090 RETURN 


Fonksiyon tuşlarını ayrıca bir kelime veya kelimelerin kısaltılmışı olarak 
ta kullanabiliriz. Örneğin FI tuşuna bastığınızda ekranda LIST yazsın ve 

hafızadaki proğramınız ekrana listelensin. Bu iş için aşağıdaki programı 
bilgisayarınıza aktarınız. 


100 FOR 1-828 TO 914 

110 READ X:FOKE I,X:S-S*X: NEXT 

120 DATA 169,71,160,3,141,143,2,140,144,2,96,164 

130 DATA 203,196,197,240,10,177,245,201,127,176,4,201 
140 DATA 133,176,3,76,72,255,2353,131,133,197,10,10 
150 DATA 101,197,10,174,141,2,224,1,240,14,274,7 

160 DATA 1240,7,224,4,208,9,24,105,40,24,105,40 

170 DATA 24,105,40,170,160,0,189,0,207,240,9,153 

180 DATA 119,2,232,200,192,10,208,2742,132,198,162,255 
190 DATA 76,28, 235 

200 IF 5<>10591 THEN FRINT “DATA HATALI GIRILDI":END 
210 PRINT"TAMAM" 

215 SYS 828 

220 REM FONKSIYON TUS DEGERLERİNİ 

221 REM HAFIZAYA AKTARALIM 

230 ADS1244096*154256:REM ADRES #CFOO 

240 FÜR 1-0 TO 15:READ X$:FOR Jsi TO LEN(X$) 

250 ASASC(MID$S(X$,J,İ)):1F A-95 THEN AZİZ:REM RETURN 
260 IF A-39 THEN AsZ4:REM TIRNAK ISARETİ 

270 POKE ADHIO#I4J-1 ,AZNEXT 

280 IF J<511 THEN PFOKE AD*tI#104J—1,OZREM ISLEM SONU 
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290 NEXT 

300 DATA LIST*,RUN€e,GOTO, CHR$ 

310 DATA ?FRE(0) €,SAVE,PRINT, THEN 

270 DATA FOKE,PEEK(,PRINT$, INPUT$# 

330 DATA “LOAD'$',8<",NEXT, GOSUE, RETURN 


Proğramı RUN yaptığınızda FI için LIST, F3 için RUN, F5 için GOTO, 
F7 için CHR$(, F2 için ?FRE(0O), F4 için PRINT ve F8 için THEN 
yazıldığını görüyoruz. Bunlara ek olarak; 


Cirl ve fl tuşlarına basarak LOAD "$", 8 
Ctrl ve f3 tuşlarına basarak NEXT 

Ctrl ve f5 tuşlarına basarak GOSUB 

Ctrl ve f7 tuşlarına basarak RETURN 
Commodore ve fl tuşlarına basarak POKE 
Commodore ve f3 tuşlarına basarak PEEK( 
Commodore ve f5 tuşlarına basarak PRINT# 
Commodore ve f7 tuşlarına basarak INPUT # 


elde e;debiliyoruz. Proğramdaki 300, 310, 320, 330 numaralı satırlardaki 
DATA'yı değiştirerek istediğiniz şeyi fonksiyon tuşlarına proğramlamanız 
mümkündür. RUN/STOP ve RESTORE tuşlarına basarsanız, fonksiyon 
tuşları eski halini alacaktır. SYS 828 yazarsak tekrar tuşların 
proğramlanmasını sağlarsınız. 


8.6 Otomatik Basic Satır Numaraları 


PC'lerde proğram yazarken AUTO komutunu takiben ekranda 10, 
20, 30 gibi otomatik satır numaralarını elde edersiniz, bu numuraların de- 
vamına ise proğramınızı yerleştirirsiniz. Commodore 64'de bu durum 
mevcut değildir. Fakat aşağıdaki proğramı disketinize önceden kaydettiy- 
seniz, uzun bir proğram yazmadan önce bu programı yükleyip çalıştırarak 
bu olanaktan faydalanabilirsiniz. Programın Basic'te yazılmış versiyonu 
söyledir. 


100 FOR 1-878 TO 547 

110 READ X:FOKE 1, X:S5-S#X:NEXT 

120 DATA 32,171,0,240,16,32,253,174,32,215,183,134 

170 DATA 25Z,165,20,13Z,251,165,21,1723,252,169,92,141 
140 DATA 2,Z,169,3,141,3,3,96,32,98,3,76 

150 DATA 174,164,165,251,166,252,132,99,124,98,162,144 
160 DATA 56,32,73,188,22,221,189,162,0,189,1,1 
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170 DATA ERİ 0 a 
180 DATA 251,5 
1G0 DATA #A,P 

200 DAVA 100 in 165, 251, 22 
210 DATA, ŞİSO,lod,IAI,2 140, 
ERO IF Ss “e 5405 THEN PRİNT “DATA HATALI" SEND 
220 PFKINT"“TAMAM 


“İNE Pİ 


Programı doğru olarak yazdıktan sonra diskete veya kasete kay- 
dediniz. Programı çalıştırmadan önce bilgisayarı açıp kapayarak programı 
tekrar disketten veya teypten bilgisayara yükleyiniz. Bilgisayarı açıp ka- 
pamadan, programı teybe yükledikten sonra çalıştırmaya çalışırsanız ol- 
maz, çünkü teybe kaydetme anında 828 numaralı adres teyple de ilgili 
olduğundan sorun çıkmaktadır. Fakat bilgisayarınızı yeni açtığınızdan 
teypte veya diskette kayıtlı programı bilgisayara yükleyerek RUN 
yaptıktan sonra NEW yazarak basic programlarının yazılacağı hafıza 
bölümünü boşaltınız. Program hala makina kodu formunda 828 numaralı 
adresten itibaren hafızada kayıtlıdır. 


Şimdi de 
SYS 828, 100, 10 


yazarsanız ekranda 100 rakamını ve devamında kürsörü hazır şekilde 
göreceksiniz. Satırın devamını yazıp return tuşuna bastığınızda aşağıda 
olduğu gibi 110 numaralı satır ekranda olacaktır. 


100 PRINT "DEVAM EDELİM" 
110 


otomatik numara uygulamasına devam etmek istemiyorsanız, hiç bir şey 
yazmadan enter tuşuna basınız. Yukarıdaki uygulamada satırlar 100'den 
başlayıp 10'ar 10'ar artıyordu. Şimdi 


SYS 828, 200, 5 
yazarsanız, 200'den başlayıp 5'er 5'er arttırarak satırlara devam edeceksi- 
niz demektir. Eğer yalnızca SYS 828 yazsaydınız, eski uygulamanın de- 
vamı olan 100'den başlayıp 10'ar 10'ar arttırarak devam edecektiniz. 


8. 7 User Port Kanalının Kullanılışı 


Bilgisayarınızı öne doğru kaldırıp arkadaki teyp ve televizyon an- 
teninin bağlandığı sıraya baktığınızda aşağıdaki şekli görürsünüz. 
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Ss RIS 
me TELEVİZYON GIRISI 


a, 


li NN a Dİ Ya nr 
SİLAR 


USER PORT 
(KULLANICI KANALI) DISKET SURUCUSU EXPANSIYON PORT 
VE YAZICI ICIN <GENİSLEME KANALI) 


TU 
buradaki girişlerden teyp, televizyon, disket sürücü ve monitör için olan- 
ları biliyoruz ve kullanıyoruz. Fakat bilgisayarı olan arkadaşlarımızdan 
kaçı User port'u veya Expansion port'u kullandı. Daha da açıkçası, Com- 


modore'unuzdan oyun, eğitim programları ve basic lisanı çalışmaları 
dışında faydalanabildiniz mi? i 


User Port'un imput output terminalleri aşağıdaki gibidir. Bu ter- 
minallerin açıklaması ise; 


Üst bölüm Açıklama Notlar 


no 

1 GROUND Topraklama 

2 *5V 100 mA maximum 

3 RESET Bu çıkışı topraklamakla bilgisayarın herşe 


yiyle tekrar başlamasını sağlayabilirsiniz. 
Pointer, basic programının başına işaret 
eder (adres olarak), fakat hafızadaki bilgile 
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4 CNTI 
5 SPI 

6 CNT2 
7 SP2 
8 PC2 


9 SERİALATN 
10 9 VACsphase 
11 9 VAC-phase 
12 GND 


Alt bölüm Açıklama 
No. 


GND 
FLAGZ 
PBO 
PBI 
PB2 


PB3 


a Ti wU 0 vu 


PB4 


“e. 


PB5 
K PB6 
L PB7 
M PA? 
N 


GND 


silinmez. Bu çıkış, ekstern (dışarıdan) 
bağlantılar için de tüm birimleri RESET 
yapar, yani sıfıra eşitler. 


CIA#I entegresindeki seri port sayacı için 
CIA#I entegresindeki seri port için 
CIA#2 entegresindeki seri port sayacı için 
CIA#2 entegresindeki seri port için 
CIA#2 'den handshake işlemi için 
Seri bus'ı ATN çıkışına bağlı olan terminal 
Commodore 64'ün transformer' ine direk 
bağlıdır. 50 mA. maximum 
Topraklama 


Notlar 


Topraklama 


Commodore 64 size port B kanalıyla CIA#I 
entegresini kontrol etme imkanı veriyor. In- 
put veya output için 8 hat mevcuttur. 
Ayrıca 2 adet de handshaking hattı vardır. 
Port B için I/O hatları iki yerden kontrol 
edilirler. Birincisi port'un kendi diğeri ise 
56577 (Helisadesimal, $DDOI) adresidir. 
Dolayısıyla bu adresi PEEK ya parlak, bir 
şey okuyabilirsiniz yani INPUT yapabilirsi- 
niz. POKE yaparak ta OUTPUT'a set yapmış 
olursunuz. Böylece 8 hattı her birisini, in- 
put veya output için set yapılabilir. 56579 
aclusundaki Data direction register'i de in- 
put veya Output için set yapmanız gereke- 
cektir. 


Topraklama 


Userport çıkışını centroics printer interface'i olarak kullanabilir- 
siniz. Bu iş için gereken Basic programı aşağıda verilmiştir. 


100 
110 
1zL 
130 
140 
190 
160 
170 
180 
190 
2Y0 
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FOR 1349152 TO 49650 


REAL 
DATA 
DATA 
DATA 


DATA S, 


LATA 
DATA 
VATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LAlA 
DATA 
DATA 
LATA 
DATA 
LATA 
Data 
DATA 
DATA 


LATA 


baTa 
DATA 
bala 
DATA 
DATA 
DATA 
DALA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 


DATA 7 


DATA 
baTAa 
DATA 
VATA 


XSFOKE 1,X:35-5*X: NEXT 
169,B38,160,192,141,26.3,140,27,3,169,129 
160,.1927,141,76,3,140,29,3,169,161,160,197 
141,.250.2,140,31,3,169,186,.160,192,141,37 
140,23,2,169,209,160,192,141,38,5,140 
39.3,1697,255,141,3,221,173,2. 221. 9,4 
141,2,221,96,141,1,221,169,16,44,12,221 
240,251,1737,0,221,41,251,141,0,221, 9,4 
141,0,221,96,166,184,240,5,32,15, 243,208 
3.76,254,246,166,152,224,10,144,2,76.,.251 
246,230,152,165,184,157,89,2,165,185,9,96 
157,109,2,165, 146, Gl yi ea 
24,96,201,0,76,119,243,32,20,2425,240,2 
24,96, 32,751,243,138,727,165,186,201,2, 240 
3.76.157,242,76.241,742,32,159,243,240,3 
76.1, 247,352, 31,243,165,186,2V1,2,208,3 
76,10,247,76.25,242,32,15,243,240,2, 76 
1.247,32,351,243,165,186,201,2,208,3, 76 
117,2427,76,91,242,72,165, 154,201,2,240,2 
75,209,241,165,185,41,15,208,10,124,151,104 
170,189,243,197,166,151,36,104,72,32,64,192 
104,24, 960,4, 1, 5,5, 1,5, 6, 7,8 
. 10,11,12,13,14,15,16,17,18,19,20 
Re Li, 20, 20,27, 20,29. 50, 3İ, EZ 

” 25,16, 57,28, 29,40,41,47,42,44 
40,40,47, 48, 49,50, 51,52, 55,54,9Y, 96 
37.58. 9S,60,61,62,62,64,977, 98,99, 100 

1Ol, 102,103, 104,105,106,107,1V8,109,110,111,112 
112,114,115,116,117,116,119,120,121,122,122,124 
1Z5.1276,25, 96, 77,98, 99,100,101,102,103,104 

105, 106,107,108,109,110,11l1,1127,112,114,115,116 
L1Z,İİĞ,İIŞ,İZO,I2I,1Z2,123,174,125,126,127,128 
129,130,131,132,133,13a, 135,1236,127,138,139,140 
141,142,145,144,145,146,147, 148,149,150,151,152 
152,154,155,156,157, 158,159, 160,161,162,163, 164 
169,166,167,168,169,170,171,172,172,17/4,175,176 
177,178,179,180,181,182,183,184,185,106,187,188 
189, 190,191,192,65,66,.67,68,69,70,71,72 
2.74,75,76,77,78,79,80,81,B2,83,84 
Bİ,86,B37,.88,89,90,91, 92,93, 222,223. 224 
220, 226,227, 228, 229, 230,231, 222,231 
237.218.237, 240, 241, 2421245, 2441245, 248,247) Zap 
Şa Ke NT Şe ci Ya YL YY 


İK SsZ53354 THEN EKİNT “KATA VAR “SEND 
FRINT"OK." 
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Her byte'in 8 bit'i 8 paralel kanaldan gönderilmektedir. İki adet 
"handshake" hattı data 'nın kaybolmasını önler. BUSY hattı, yazıcının 
data'ya hazır olup olmadığını kontrol eder. Bu interface yoluyla printer'de 
programınızı listelemek istiyorsanız; 


OPEN 1,2: CMDI : LİST 
yazmalısınız. Kürsör tekrar ekranda görüldüğünde ise 
PRİNT #1 : CLOSE | 


yazarak CMD modundan normal moda dönerek kanalı kapatınız. Eğer gra- 
fik data'sı transfer etmek istiyorsanız ; 


OPEN |1,2,1 
PRINT #1,... 
CLOSE 1, 
yazınız.Kullanacağınız kablonun yapımı ise gayet basit olup, bir ucunda 


user port'a girebelecek socket (fiş), diğer ucunda ise centrnics socket ol- 
malıdır. Pin (uçların) lerin bağlanması ise aşağıdaki şekilde olmalıdır. 


Üser port Cetroniçs. 
A GND 16 
.B FLAG- BUSY 11 
c DO 2 
D D 13 
E D2 4 
F D3 5 
H D4 6 
J D5 7 
K D6 8 
L D7 9 
M FAZ-STROBE 1 


108 


8.8 Commodore 64'de Synthesizer Stereo Sesi Elde Etmek 


Televizyon hoparlöründen çıkan sesi beğenmiyorsanız bilgisayarı- 
nızı bir amplifikatöre veya stereo alıcıya bağlayarak daha iyi bir ses elde 
edebilirsiniz. Asıl sorun bilgisayardan çıkan tek kanal yani mono sesi 
nasıl iki ayrı frekans bandlarına ayırmaktır. Bu ayırma işini 300 Hz ola- 
rak alırsak, aşağıda 3 oktavlık (36 Herize kadar), yukarıda 4 oktavlık 
(4800 Hertz'e kadar) frekans bandı oluşturmaktadır. Bunun için diyazn edi- 
len filtrenin attenuation denilen ses kaybetme değeri 6 dB / oktav olup 
cut-off frekansı 300 Hz (alt sınır ) ve 3 kHz (üst sınır) dür. Kapasitörle- 
ri değiştirerek kesme frekanslarını değiştirebilirsiniz. Fakat resistör(di- 
renç) leri değiştirmeyiniz. Kesme frekansını değiştirmek istiyorsanız iste- 
diğiniz frekansa göre kapasitör değerini Cz 1/3300*F formülünden hesap- 
layabilirsiniz. Filitrenin şematik diagramı aşağıdaki gibi olmaktadır. 


COEMMDADDARE Ea 
TEME) 


RI R3 
— 1—mma> 
l TI 
CE 


Aşağıdaki proğram üçgen dalda kullanarak bir tarama işlemi yap- 
maktadır. Böylece sesin bir hoparlörden diğerine nasıl gittiği rahatlıkla 
duyulacaktır. 


BL FÜLE Vitd,OSFÜKE VİA, GZPOKE VZtd4,0 
LO AS9Ş:D-Y:5:9:5AR 914270 
110 PUKE RS,0SFÜKE FL,19 


120 DORE VZES, İE#AKDI PÜRE VEtö,lEmS5tR 
1iZ0 FÜKE V3r4,17 
140 FUR 120 TO HEFDKE V3ti,FEEK (542500) :NEXT I 


190 POLE V214,16 
160 FÜR 150 TÜ R#d4zFÜKE Viti,PEEK (54200) :SNEXT 1 
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8.9 Commodore 64'de Sıralı Dosyalama Metodu 


Dosyada yani kasette veya diskette bilgi saklanırken değişik me- 
totlar kullanılır. Kasette bilgi sakladıktan sonra o bilgiye ulaşım disket- 
teki kadar kolay olmayacaktır. Teorik olarak kaset üzerindeki bir bilgiye 
ulaşmak müzik kasedindeki bir müzik parçasına ulaşmak gibidir. ileriye, 
geriye devamlı kasedi sararak istediğiniz yere ulaşmanız gerekir. Kasette 
proğram kaydettiğiniz bölgeyi tekrar okumak istiyorsanız kasedi başa 
sarmanız gerekecektir. Kasetten hafızaya proğram aktarmakta ise genelde 
toplu olarak yapılırsa daha kolay ve çabuk olmaktadır. Kaset üzerinden 
hangi bilgileri aktarayım diye zaman kaybetmektense, tüm bilgileri Com- 
modore 64'ün hafızasına aktarıp istenilen bilgileri hafızada ayırıp üzerinde 
çalışma yapmak en uygundur. Kasetle çalışırken sıralı dosyalama sistemi- 
ni uygulamak en güzel yoldur. 


10 REM SARAR RAKAM A KURAR 
20 REM İLK VE SON ISMI TEYPFE YAZMAK 
3U REM #ARARAM ERER URAY UKAK 
50 PRINT CHR$(147):REM EKRANI SIL 

52 FRINT"DUSYAYI YAZMAK ICIN ACALIM" 
54 PFRINT 

55 OPEN 1,1,1,"PP DOSYASI" 

60 INFUT" SON ISIM :“ş5SI$ş 

70 INPUT"“TLK ISIM";ILK$ 

BU PRINT 

70 PFKİNT"SON ISMI YAZALIM"ISIŞ 

100 FRINT“ILK ISMI YAZALIM"Ş ILKES 

110 PRİNT 

120 FRINT#$#1,SI$ 

150 PRINT#J, İLKS$ 

140 PRINT 

150 IMPFUT"“BASKA E/H":EH$ 

155 PRINT 

160 IF EH$-“E" THEN 60 

170 IF EH$-"H" THEN 200 

180 FRINT"HATALI GIRIS" 

190 6GOTO 140 

200 CLOSE 1 

210 END 


Kasetten bir proğramı alarak Commodore 64'ün hafızasına aktarmak 
için ve sonra da ekrana veya yazıcıya döküm olmak için aşağıdaki 
proğramı kullanabilirsiniz fakat önce teyb'i başa sarmanız gerekecektir. 
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10 REM ASA AAA AAA 

20 REM TEYFTEN COMMODORE 64'E 

30 REM BILGI AKTARMAK ICIN 

40 REM #ARAR ARAR A RA RAMAK AA ARAK 

So FRINT CHR$(147): REM EKRANI SILELİM 
52 EKINT"DOSYAYI OKUMAK ICIN ACALIM" 
S4 FRINT 

56 OPEN 1,i,0, “FPFDOSYA" 

6bY INFUT#İ:SIS 

70 INPUT$#1ŞILK$ 

Bo İF ST AND 64 THEN 1ZOÖ:REM DOSYA SONU MU” 
90 FRINT"“OKU-SON ISIM:";SI$ 

100 FRINT"OKU—ILK ISIMS";1ILKE$ 

110 PRINT 

120 GÜTO 60 

170 FRINT"DOSYA SONU-SÜN ISIM";SI$ 

140 FRINT"DOSYA SONU—ILK ISIM"ŞILK$ 
150 CLOSE 1 

16V END 


Eğer data'yı ekran yerine printer'e göndermek istiyorsanız proğramı 
aşağıdaki şekilde değiştirmelisiniz 


10 REM #ARA RA RA RR 

20 REM TEYPFTEN COMMODORE 64'E 

Z0 REM BILGI AKTARMAK ICIN 

40 REM AAA AAA AA ARAR A 

50 FRINT CHR$(147): REM EKRANI SILELİM 
52 FRINT"DOSYAYI OKUMAK ICIN ACALIM" 
54 PRINT 

56 OFEN 1,1,0, "PFDOSYA" 

53 OFEN 4,4 

bO INFUT#1:SI$ 

70 INFUT$İŞ1ILK$ 

80 IF ST AND 64 THEN iZ3ÖsREM DOSYA SÖNU MU” 
90 PRINT#A4, "OKU—SON ISIM-":SI$ 

100 PRINT#4, “OKU—ILK 1S1M2"ş ILK$ 

110 PRINT$#4 

120 GÜTO 60 

120 ERINTİt4, "DOSYA SONU-SON ISIM";SI$ 
14v FRINT#4, "DOSYA SONU—ILK ISIM"ŞILK$ 
150 CLUSE 1 

155 CLOSE 4 

160 END 
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Diğer bir imkan da kasette kayıtlı data'nın arkasına yeni data ilave et- 


mek yani "append" yapmaktır. Bu işin basit bir yöntemi yoktur. Çünkü 
kasetteki bilgilerin hepsini hafızaya almadan yer tespiti yapmak vesaire 
mümkün değildir. Dolayısıyla tüm bilgileri hafızaya aldıktan üzerinde 
işlem yapıp, eklenecek veya çıkarılacak bölümleri yaptıktan sonra tekrar 
kaydetmek gerekir. 
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100 
(10 
1X0 
120 


REM ARAK ARAK AAA ARUKUKA 
REM ILK VE SON ISMI TEYP'E 
REM KAYDETMEK. ICIN 

REM AAA RAK A YANARAK 


» FRINT CHR$(147):REM EKRANI TEMİZLE 
: FRINT“DUSYAYI OKUMAK ICIN ACALIM" 


PFRINT 

OPEN 11,0, “PEDOSYA" 

DİM SİSCİOO) ÇİLESGOD SİzİSREM ENLOK 160 
INPUT#L,SISESİISCI) 2514 
IMFUT#1,İLES$S İLKESİ) ZILKS$ 
IF ST AND 64 THEN 130 

İF 1s1L6 THEN 1Z0 

Isıttı 

BUM) 70 

ENS 

FRKINTI 

FRINT"TEYF'I BASA SARINIZ" 
FRINI 

INFUT"“BITTI MI E/H"“şEH$ 

LF EH#-“H" THEN 1270 

IF EHK$-"E" THEN 210 
FRINT"“HATALI GIRIS"“ 

6O0T0 1506 

FRINT"“EKLEMEK ICIN DOSYAYI ACALIM" 
PRİNT 

OFEN 1,1i,1, “PFFDOSYA" 

FOR Isi TÜ EN 
PRINT#L,SISCI) 
FRİNT#L,İLESCİ) 

NEKT Iİ 

PFRINT"“DATA ILAVE EDELİM" 
PRIMT 

INPUT"“SON ISIM";S5I$ 
INFUT"“İLE ISIM"Ş İLE 

PRINT 

FRINT"SON ISMİ YAZALIM";SIş 
PRINT"ILK. ISMİ YAZALIM"; ILEŞ 
FRKINT 

FRINT#1İ,SI$ 

FRINT#İJ,İLE$ 

FRINT 

IMFUT"DAHA FAZLA E/H?"ŞEH$ 
IF EH$S-"“E" THEN 200 

IF EH$-"H" THEN 44 
FRINT“HATALI GIRIS" 

GUT0 Z8v 

CLOSE 1 

END 


ISIM 


8.10 Teyb Bufferini Proğram Saklamak İçin Nasıl Kullanabiliriz. 


BASİC Lisanı ile beraber birazda makina dili proğramı kullanmak is- 
tiyorsanız, bu proğramı bilgisayarın hafızasında ne- reye koymalısınız. 
Bu durum her zaman problem yaratabilir. Çünkü seçtiğiniz adrese basic 
proğramınız taşabilir veya proğramınızın data bölümü taşabilir. Bunu 
önlemek için iki yol vardır. Birincisi makine kodu proğramı için 
hafızanın öyle bir bölümünü seçelim ki, basic orasını hiç kullanmasın. 
İkincisi ise basic proğramının hafızadaki yerinin başlama veya bitiş adre- 
sini değiştirmektir. BASİC proğramının kullanmadığı üç ayrı hafıza 
bölgesi vardır. Bunlardan ilki kaset buferi denilen bölgedir, başlama adre- 
si 828($033C) ve bitiş adresi 1019 ($03FB) dur. Bu bölge yalnızca data 
veya veri kasette saklanırken kullanılmaktadır. Makina kodu proğramının 
uzunluğu 192 Byte'ı geçmiyorsa bu bölgeyi kullanmak uygundur. Örneğin 
sprayt 13,14 veyal5' i buraya saklayabilirsiniz. İkinci küçük bölge 704- 
767 adresleri arasıdır. Sprayt ll buraya yüklenebilir. Fakat asıl büyük 
bölge, üçüncüsü olan 4 K-Byte büyüklüğünde adresleri 49152 den 
53247'ye kadar ($C000- $CFFF) olan bölgedir. Burası düşünebileceğiniz 
en uzun makina proğramı için dahi yeterlidir. Ayrıca. monitör'ün 
yüklendiği IK Byte 'lik(1024 Byte'lik) hafızaya yalnızca 25 satır x 40 
kolon için 1000 Byte'lik bilgi girişi yapılıyor. Burada 24 Byte'lik bir boş 
saha mevcuttur. Bunların adresleri 2024-2039 arasıdır. 


Bu bölgeler yeterli değilse bilgisayarın Basic için ayırdığı hafıza 
bölümünü daraltarak kalan bölümü makina kodu için kullanabiliriz. Bu iş 
için basic bölgesinin başlama veya bitiş adresini değiştirmemiz gerekiyor. 
basic proğramı başlama adre-sinin değeri 43 ve 44 numaralı adreslerde 
saklıdır (buna pointer deniliyor, çok ilginç değil mi?). Basic proğramının 
bitiş adresi ise 55 ve 56 numaralı adreslerde saklıdır. 


PRINT PEEK (43) * 256* PEEK (44) 
PRINT PEEK (55) 4 256* PEEK (56) 
Satırları ile bu adreslerin 2049 ve 40960 olduğunu öğsemebiliyoruz, 


Eğer makina kodu için 1000 byte'lik bir alanı bu bölgeden ayırmak is- 


tiyorsak, basic için başlama adresini 2049, bitiş adresini 39960 olarak al- 
abiliriz. Bunu yapabilmek için 55 ve 56 numaralı adreslere 39960 sayısını 
yerleştirmeliyiz. 256 sayısından dolayı 56 numaralı adreste saklanacak 

sayı, 39960/256- 156.09375 sayısının tam sayı kısmı olan 156 dır. 55 

numaralı adreste ise 39960-256 x 156 -24 sayısı olmalıdır. Bu değerleri 

POKE komutuyla 


POKE 55,24: POKE55, 156: CLR 
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hafızaya yerleştirelim. CLR, ekranı temizleyerek yanlış değerlerler al- 
mamızı önler. Eğer başlama adresini 2049'dan 3049'a kaydırmak istiyor- 
sanız yani 1000 Byte 'lik bir bölümü makina kodu proğramlarına ayırmak 
istiyorsanız; 


YB- INT (3049/256) : AB- 3049-YB x 256 
POKE 43, AB: POKE 44, YB: POKE 3049 - 1,0: NEW 


Satırlarını yazmalısınız. Burada YB, yüksek Byte anlamına,AB ise alçak 
byte anlamına gelmektedir. Commodore 64'ün hafızasında bir adres sakla- 
mak istiyorsanız örneğin 


$21A9 


gibi, bunun $AG olan kısmını sakladığınız byte'a alçak byte, $21'i sak- 
ladığınız byte'a da yüksek byte deniliyor, çünkü adresin desimal değerini 
hesaplamak için yüksek byte'deki sayıyı (256 ile çarpıyoruz (Bakınız 
Özden Kılıcay'm UYGULAMALI BASİC kitabı bölüm2). YB değeri 3049/ 
256- 11.910 olarak hesaplanıp INT ile tamsayı kısmı alınıyor, yani 
YB—Il1 oluyor, AB değeri ise 3049 - Il x 256 - 233 olarak hesaplanıyor 
ve bu değer 43 ve 44 numaralı adreslere yerleştirildi. Şimdi basic 
proğramının bulunduğu bölgenin başlama adresi 3049 oldu. Bu arada 
3048 no'lu adreste 0'a eşitlenerek boşaltıldd NEW komutu ise reset yap- 
mak için gereklidir. 


8.11 Karakter dizilerini sıraya koyma 


Daha önce karakter dizilerini veya sayıları sıraya koyan metotlarla 
karşılaşmışsınızdır. Fakat işlemi hızlı yapmak istiyorsanız, proğramınızı 
makina kodunda yazmanız gerekecektir. Bir makina kodu proğramı bas- 
ic'ten 100 defa daha hızlı çalışmaktadır. Aşağıdaki proğram sıraya koyma 
işlemini makina koduyla yapıyor. Proğramı kısa tutmak için şu şartlara 
uymak zorunluluğu vardır. 


1- Sıraya konulacak dizi DIM ile belirtilen ilk dizi olmalıdır. 


2- Sıraya konulacak son elemandan sonraki eleman boş eleman 
(sıfır)olmalıdır. Proğram kısa olduğu için kaset bufer hafızasında dahi 
saklanabilir. Yalnızca SYS 828 ile çağrılabilmektedir. Proğram dizinin 


tek boyutlu olup olmadığına bakıyor, eğer değilse hemen proğramı biti- 
riyor. 
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OZSC 
OSSC 
4 ÖSSE 
LOLA4 ÖZAÖ0 
06005 0342 
0006 0347 
R 

0007 0345 
0008 0347 
0009 O0Z49 
0010 O3ARB 
0011 O3a4D 
0012 054F 
ÖĞ15 0350 
0014 O03S1 
0015 0553 
0016 0355 
0017 O0SS7 
0018 0ZS9 
0019 OZSB 
0020 OZSD 
6021 OZSF 
0022 0361 
DONE 
00Z2S 0365 
0024 0365 
0025 0366 
0026 0368 
0027 O0S6B 
0028 ÖZER 
0029 036D 
00ZO OZEF 
dOZS1 OZ71 
0052 0375 
OOSS 0375 
0034 0377 
0055 0378 
00Z6 OSZJA 
0057 037C 
0058 O3Z7E 
O0E9 0380 
0040 0382 
0041 0384 
0042 0386 
0045 0388 


0047 0590 
TH 

0048 Ö0Z92 
0049 0Z95 


00 


Li RTS 
L2 CLC 


La INY 


BYT 
İLDA $22,0 
CPY 


L5 CLC 


L6ö LDY 


L7 - STA 


L8 INY 


828 
#o | 

(ZF) ,Y $FIRST LETTER 
Lı 


($2F),Y : SECOND LETTE 
Li 

#4 

($2F),Y $DIMENSION 


#1 
L2 


$2F $ARRAY START 
#7 $PLUS 7 


Li $LENGTH ZERO, 


(SEE) ,Y 
$99,$22,$00 
ŞPOINTER TO STRING 
#2 


#5 $SADD THREE 


$4D $COMPARE LENG 
422 $WITH FIRST L 
L7 


422 
$55 $COMFARE LENG 


(471), Y 
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0050 0395 99 4D 00 BYT $99,$4D,$00 


0051 0398 ş STA $4D,Y 

0052 0398 CO 02 CPY 42 

0055 O039A DO F6 ENE L8 

0054 039C A0 00 LDY #0 

0055 Ö39E Bi 23 L9 LDA ($23),Y $STRING COMPA 
RE 

0056 03AO DI 4E CMP ($4E),Y 

0057 OSA2 FO 04 BEO L1O $ŞEGUAL, THEN 
CONTINUE 

0058 03A4 BO OB ECS Lit1 $GREATER THAN 
EXCHANGE 

0059 OZA6 ŞO CF BCC L5 $ SMALLER THEN 
NEXT STRING 

0060 0SA8 C8 L10 INY 

0061 OZAŞ C4 55 CPY $55 SALL CHARACTE 

RS EGUAL? 

0062 OZAB DO F1 BNE L9 

00635 OSAD CA 22 CPY $22 $FIRST STRING 
LONGER 

0064 OZAF BO C&6 ECS L5 $NO THEN OK 

0065 OZBI A0 02 Li1 LDY #2 

0066 OZB3 BI 6E Liz LDA ($6E),Y $SWAP STRING 

POINTERS 

0067 O3BS AA TAX 

0068 O3ZB6 Bi 71 LDA ($71),Y 

0069 O03B8 91 &E STA (s6E),Y 

0070 OZRA 99 22 00 BYT $99,$22,$00 

0071 OSBD $ STA 422,Y 

0072 OZBD 8A TXA 

00735 OZBE 91 71 STA (471),Y 

0074 03CO 88 DEY 

0075 OZSCI 10 FO BPL Li2 

0076 OZCZ 30 B2 BMI LS 

0077 O3CS 18 Lis CLC : $SPOINTER TO N 

EXT STRING 

0078 03C6 AS &E LDA $6E 

0079 03C8 69 OZ ADC #5 

0080 OZCA 8S &E STA $6E 

0081 OZCC 90 8F ECC L3 

0082 OZCE E&6 &F INC $6F 

00835 OZDO DO 8B ENE L3 


ASSEMBLY COMPLETE. 


Sıraya dizme proğramının Basicten yazılmış olan şekli aşağıdadır. 


100 FOR 12828 TÜ 777. ON 
110 READ Gi 1, kESSSEXENEKT. EE | 
120 DATA 160,0,177,47,48,13, 200, ği iş 
150 DATA 4, 177) 47,201,1,240,1,96, 24, 165,47,105 


1d0 DATA 7,1 ; 110,165, 43, 105,0 GİZEŞMLİ, 160,0, 177 
156 DATA 110, 340, al, la, mâ, 


0, 1774 110p 153134, 192 
iz DATA 3.208. 2h6,165,110,133,113,165, 


3, 58 Tla,7 
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170 DATA 165,113,105,3,153,113,144,2,250,114,160,0 
180 DATA 177,113,240,61,153,77,197,34,144,2,165,34 
190 DATA 133,85,200,177,113,1535,77,0, 192,7, 208,246 
200 DATA 160.0,177,35,209,78,200, 4,176,11,144,207 
210 DATA 200,196,85,270B,241,196,34,176,198,160,2,177 
220 DATA 110,170,177,113,145,110,153,34,0, 138, 145,113 
230 DATA 1Z6,16,240,4B,178,24, 165,110, 105,3,133,110 
240 DATA 144,143,2350,111,208,139 

250 IF 54317663 THEN FRINT"DATA HATALI GIRILDI":SEND 
260 FRINT“TAMAM" 


şimdi bu basic proğramını küçük bir test proğramı ile deneyelim. Önce 
NEW yaparak basic proğramı için gereken hafızayı temizleyelim. Sonra da 
şu küçük proğramı yazalım. 


lay İMPUT“SAYI,UZUNLUL "35, 

110 DUM AS(S5)3S5-5-—1 

LEV FOR Jzs0 TO $ 

150 FOR Jz1 Tü RND(J)*1 

JdU ARI) ZAS (CI) #ÜHES(RND Cİ) #26465) 


ISE NEXTSMEXT 

Ig FOR Jsv TO SEFRİNT A$CI):NEXT 

170 İ&TlsS5vY5 göğe TeT1-T 

Iş0 PFKİINT “SIRAYA KOYMA ZAMANIZ"T/60"SANIYE" 
140 FÜR 10 TÜ SEFRİNT ASCI):NEXT 


Proğramı RUN ettiğinizde size sayı ve uzunluk soruluyor. Sayının 
değerini 10 ve uzunluğu 3 olarak alırsanız karaktelerin ne çabuk sırayı di- 
zildiğini görebilirsiniz. sırayı dizme zamanlarını bir kenara yazdığınızda 


100 adet karakter dizisinin 1 saniyeden daha kısa zamanda dizildiğini 
göreceksiniz. 


8.12 Sayısal Değerlerin En Küçük (minimum) ve En Büyüğü- 
nü (maxsimum) Bulmak. 


Normalinde küçük bir basic proğramı ile indisli değişkene yüklü bir 
dizi sayı içinden en küçük ve en büğünü bulmak mümkündür. 
Proğramlamada hc:hangi bir sorun yoktur. Fakat sayılar fazla miktarda 
olduğunda işlem süresi uzayacaktır. Belki makina kodu programı bu 
bakımdan faydalı olabilir. Burada assembler programını vermeye gerek 
görmüyoruz. Önce önce basit basic proğram yapısını verelim 
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100 DIM A(N) 
200 GOSUB 1000 


1000 MIN- A (0) 

1000 FOR I-1l TON 

1020 IF A (I)<MIN THEN MIN-A (1) 
1030 NEXT 

1040 RETURN 


Programda minimum hesabı 1000 ile başlayan altprogramla yapılmaktadır. 
Maximum (enbüyük) değer için aşağıdaki satırları yazarak programı 
değiştiriniz. 


1020 IF A(I)> MAX THEN MaX—-..(I) 
1000 MAX-A(0) 


Şimdi de maximum sayıyı hesaplayan makina kodu proğramını verelim 


FOR 151200 TO S1198 

READ X:FOKE 1, X:5:5*X:NEXT 

DATA 166,47,165.48,174,95,1735,96,.197,5v0,208,4 
DATA 228,49,240,29,160,0,177, 98, 200,197,69,208 
DATA 4.165,70, 209,95, 240,22, 200, 177,95, 24,101 
DATA 95,170,200,177,95,101,96,144,215,169,184,172 
DAVA 34,167,200,76,69,164,200,24,177,95,101,95 
DATA 13Z,38,200,177,98,101,96,133,. 159, 200,177, 95 
DATA 150,177, e 14, 48,36,16 

DATA 22,91,188,10,7,165,.99,164, Ta,3a il 
DATA 187.24,165.97 108,5. 133, a). 
DATA 164,96,1977,28 
DATA 0,177,.95,170 
DATA 165,95,IOSN,A,IZL,9IH, 144, ği 
DATA 208,13, 165.96, 197,39, 208,7. 165, 20 
DATA 76,145,179,160,0,177,95,197, 20, 208 
DATA 177, KN 2,169,1,144, 2,167, 25Ö 

DATA 486,1971,16,201,659,87,87.65,E89, 752, 78,79 

LATA B4 0 79,B5,78,196 

IF 8 <> 22908 THEN FRINT “HATALI DATA GIRISI" : END 
PRİNT SEY" 


VD, T6 
Yö,len 
0, 

-B 
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Bu proğram ile sayıların en büyüğünü bulabiliyoruz. aşağıdaki küçük 
proğramla bunu deneyelim. Üretebileceğimiz N kadar rastgele (random) 


sayı içinden en büyüğünü bulabiliyoruz. 


100 BFDKE 788.0:PF0KE Füp, Sü 
110 INPUT "ELEMAN SAYISI"ŞN 
i20 DIM ACN) 

130 FOR 1Is0 TÜN 

İdÜü ACI) ERND(1) #1000 

130 PRİNT ACI) 

150 NEXT 

170 PRITMT 

VE 


SELNT O USR CA 


Maximum yerine minimum Sayıyı bulmak için 
değişiklikleri yapmak gerekiyor. 


POKE 51288, 48 (geri dönüş icin 16) 
POKE 51380, 16 (geri dönüş için 48) 
POKE 51382, 48 (geri dönüş için 16) 


8.13 Expansion port çıkışları 


proğramda şu 


Bilğisayarınızı büyütmek istiyorsanız Expansion port çıkışın- dan faydal- 
anabilirsiniz. Commodore 64'ü önünüze aldığınızda expansion port arka 
sağ taraftaki çıkış olmaktadır. Bu konektörü kullanmak için 44 pin'li bir 

fiş gerekmektedir. Bu port Commodore 64 sisteminin genişlemesine yara- 
maktadır Böylece bilgisayarın adres bus veya data bus'una giriş mümkün 
olacaktır. Fakat expansion port'u kullanmaya karar verdiyseniz. Çok dik- 

katli olmak zorundasınız aksi halde bilgisayarınıza za-rar verebilirsiniz. 


Expansıon port çıkışlarını ve anlama geldiğini aşağıda veriyoruz. 


22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 
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ismi 
GND 
*9 VDC 


*5 VDC 


IRO 

R/v 

CLOCK 

YO 

GAME 

EXROM 

1/02 

ROML 

BA 
DMA 

D7 

D6 

DS 

D4 

D3 

D? 

DI 


DO 
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pin.no 


tanımı 
topraklama 


user port ve kartuşların toplamı 450 mA'den fazla 


akım çekmemeli 

user port ve kartuşların toplamı 450 mA'den fazla 
akım çekmemeli 

6502 entegresine interrept reguest sinyali için 
Okuma / yazma 

8.18 MHz Video nokta saati. 

Input Output blok 1 adresler $DEOO-$DEFF 
Aktif alçak-ttl Input 

aktif alçak ttl input 

Inzat-output blok 2, adresler $DFOO- DFFF 

8K dekode olmuş RAM/ROM bloku, adres başlama $8000. 
VIC-II chip'i için bus 

Direk bafızaya ulaşma isteme hattı. 

Data bus bit 7 

Data bus bit 6 

Data bus bit 5 

Data bus bit 4 

Data bus bit 3 bufferli olmayan 

Data bus bit 2 I utl maximum load. 
Data bus bit | 


Data bus bit 0 


GND 22 Topraklama 


GND 23 Toproklama 

ROMH 24 $K dekode olmuş RAM/ROM blok, adres başlama $E00 

RESET Ç 6502 entekresinin reset pin'i i 

NMI D 6502 Non maskable interrupt'e, buffer'li çıkış, obuffer'li 
olmayan giriş. 

02 E Faz 2, sistem Saati 

A15 F Adres bus, bit 15 

Al4 H Adres bus, bit 14 

A13 J Adres bus, bit 13 

A12 K Adres bus, bit 12 

ATLI L Adres bus, bit 11 

A10 M Adres bus, bit 10 

A9 N Adres bus, bit 9 

A8 P Adres bus, bit 8 

A7 R Adres bus, bit 7 

A6 Ss Adres bus, bit 6 

A5 T Adres bus, bit 5 

A4 U Adres bus, bit 4 

A3 V Ardes bus, bit3 

A2 W Adres bus, bit 2 

Al X Adres bus, bit! 

A0 Y Adres bus, bit0 

GND Z Sistem topraklama. 
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9. BÖLÜM OYUNLAR 


9.0 Oyun programları hakkında 


Bu bölümde 20 adet oyun programı listeler halinde verilmiştir. Bildiğiniz 
gibi piyasada 500'den fazla Commodore 64 programı mevcuttur. Bunların 
hepsi makina kodunda yazılmış çok kaliteli programlardır. Yapılan işlem 
maalesef bu oyunları bilgisayara yükleyerek Atari şeklinde oynamak olmak- 
tadır. Halbuki bu bölümdeki programların çoğu standard basıc'te yazıldığı 
için bu kitabın ilk bölümünde bahsedilen sprayt, ses vediğer Poke komutları 
nı takip etme olanağı vardır. Oyun programları çeşitli kaynaklardan fayda- 
lanılarak hazırlanmıştır. Bu kaynakların listesi kitabın sonundaki Ekte veril- 
miştir. Eğer programda baskıdan dolayı bir hata varsa bunun için kitabın 
arka kapağındaki kitap isteme adresinden bilgi alabilirsiniz. 

Programların bilgisayara aktarılması sırasında elde edilen tecrübenin fay- 

dalı olacağına inanıyorum. Aynızamanda programların bölümlerini incele- 
yerek spraytların şeklini, rengini ve hatta ses tonlarını dahi değiştirmek 
mümkün olmaktadır. 
“ Programları bilgisayara aktarırken en büyük sorun yazılanların doğrulu- 
gunu bilmemektir. Sonradan yapılan bir hatanın hangi satırda olduğu, hatta 
bir satır içinde dahi nerede olduğu zor tespit edilmektedir. Bunun için yazı- 
lan her satırda kontrol imkanı sağlayan bir program veriyoruz. Bu küçük 
programı bilgisayara (yükledikten sonra RUN edilince, program adreslere 
yerleşiyor ve 61120 numaralı satırdaki NEW komutundan dolayı bilgisaya- 
rın BASIC ile ilgili hafıza kısmı sizin kullanmanız için boşaltılıyor. Şimdi 
bir satır yazdığınız zaman ekranın sol üst köşesinde bir rakam belirecektir. 
Bu rakam her oyun programının sonunda verilen o satır numarasına ait nu- 
marayla aynı ise bir sonraki satıra geçebilirsiniz. Bundan sonra o satırın 
yanlış olma ihtimali yoktur. Eğer satır yanlış yazıldıysa düzeltmenizi ya- 
pınız ve bir sonraki satıra devam ediniz. Bu şekildeki bir uygulama en iyi 
neticeyi vermektedir. 
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61108 PRINT",Z.UTFEN BEKLEYİNİZ" 
61191 FOR 1-886 TO 1918:READA 
61102 CK:sCK*#A:POKE I,A:SNEKT 

61110 IF CK<>17539THENPRINT"ERROR YAR":END 
61120 SYS886:PRINT"OKUYUCU BASLADI":SNEYİ 
61886 DATA 173,36,3,201,150,208 
61892 DATA 1,96,141,151,3,173 
61898 DATA 37,3,141,152,3,169 
61904 DATA 150,141,36,3,169,3 
61919 DATA 141,37,3,169,0,133 
-61916 DATA 254,96,32,87,241,133 
61922 DATA 251,134,252,132,253,8 
61928 DATA 201,13,240,17,201,32 
61934 DATA 240,5,24,101,254,133 
61940 DATA 254,165,251,166,252,164 
61946 DATA 253,40,96,169,13,32 
6195P? DATA 210,255,165,214,141,251 
61958 DATA 3,206,251,3,169,0 

61964 DATA 133,216,169,19,32,210 
61970 DATA 255,169,18,32,210,255 
61976 DATA 169,58,32,210,255,166 
61982 DATA 254,169,0,133,254,172 
61988 DATA 151,3,192,87,208,6 
61994 DATA 32,205,189,76,235,3 
62000 DATA 32,2905,221,169,32,32 
62006 DATA 210,255,32,210,255,173 
62012 DATA 251,3,133,214,76,173 
62018 DATA 3 


Programın yazılmasını bir tek bölümde yapmak gerekiyor. Eğer bu müm- 
kün değilse ayrı ayrı yapıp, kitabın 5. bölümünde verilen merge rutini yeri- 
ne geçen birleştirme programı ile yapmak mümkündür. 

Verilen programlar içinde PRINT deyiminden sonra tırnaklar arasında 
Commodore bilgisayarına özgü bazı işaretler vardır. Bunların yazılması 
Control tuşuyla beraber başka bir tuşa basmakla veya sol alt köşedeki 
Commodore tuşuyla beraber başka bir tuşa basmakla veya kürsör tuş- 
larına basmakla elde ediliyor. Bu tuşlar ekranda bir seri işaretler veriyor ve 
yazıcıdada doğrudan tuşun yaptığı iş yazılı olarak çıkıyor. Örneğin renk 
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tuşu gibi. Bu işaretler genekle ekranın rengini düzenlemede, yazının 
ekranda istenilen yere yerleştirilmesinde veya ekranın silinmesinde kul- 
lanılıyor. Bu bölümde ki programların bazı satırlarında parantez içinde 
verilmiş (RVS) gibi, (ORNG) gibi yazılar göreceksiniz. Bunları gördüğünüz 
gibi yazmayınız onların nasıl yazılacağı aşağıdaki listede gösterilmiştir. 
Örnegin PRINT "(WHT)" satırında (WHT) yazmayınız. Onun yerine 
Control tuşuna ve 2 tuşuna basınız. Böylece ekranda 3 görülecektir. 


Programda 
PRINT"..."içinde 


Ekranda Büklaiek 


olan yazı görülen Tuşlar 


SHİFT VE CLR/HOME 

| <HOME> oO| 8  Ç(CIRHOMEtuşç, ,c,c«c 
| <DOWW oO| MW  JKürsoraşğ | 
|, WP O | m JÇKüsoryukar.,,,,,,,« Â | 
| €GHD | MN JÇKüsorsk,, | 
| CEP) | MM  JKürsorsok,,,,, | 
|, EK | mM  Jetriveltuşar. | 
|, WA o0O| A o İetriveztuşlar.**<*<«<«c«c 
| ED | MS  Jetrivetuşar | 
| CN | Ok  Jetrivedtuşar << 
| «UR | Gi Jeirivestuşar*<*<*<«<«c« 
| <GRN | â  Jetrivectuşarn.*<«<«c 
|, e | SM  Jetrive7tuşlar.,,*<«<«c 
|, WE | NM  Jcirive&tuşlar | 
| WS | 4 Jetrive9tuşar. | 
| CE o 0 | m İetriveOtuşlar.**<*<*<«<«c«c 
| ©RNS o O | 8 O İCommedere ((Gi)ve 1 tuşları | 
| OCERN o oO| — O İCommodore ve 2 tuşları | 
| GRE | © İCommedore ve 3 tuşları | 
| O CRYO | mw  |Commodore ve 4 tuşları | 
| OCGRYEŞ | & İCommedore ve 5 tuşları | 
| OCERN |  w o |Commodore ve 6 tuşları | 
| «BLU || GU  İCommedore ve 7 tuşları | 
| oOCGRY3 |  E O |Commeodore ve 8 tuşları | 


($23) W — CTRL ve W tuşları 
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Örneğin yazıda aşağıdaki gibi çıkan şu satırları yazmanız için; 


10 PRINT"(ELR)" 
20 PRIİNT"(RED)" 
30 PRİNT" CORNG) " 


10 numaralı satırda (CLR) için shift ve CLR/HOME tuşlarına 
20 numaralı satırda (RED) için Ctrl ve 3 tuşlarına 


30 numaralı satırda (ORNG) için ise Commodore (Gİ) ve İ tuşlarına 


basınız. Ekranda bu satırlar aşağıdaki gibi görünecektir. 


19 PRINT",J7" 
20 PRINT"ıŞ" 
30 PRINT";J" 
READY. 
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9.1 Oyunlar 
Tenis 


Tuşlarla iki oyuncu tarafından oynanıyor. Raketlerin büyüklüğü ve tenis 
topunun hızı ayarlanabiliyor. Soldaki oyuncu A ve Z tuşları ile raketi aşa- 
ğı yukarı hareket ettirmektedir. Sağdaki oyuncu ; ve / tuşlarıyla raketi 
kontrol etmektedir. Puanlar ekranın en üst köşelerinde veriliyor ve 15 puan 
alan oyunu küzanıyor. 


REM XX£X TENIS OYUNU #XX 

PRINT"(GLR)" 

PRINT" (HOME) (DOWN) (DOWN) (DOWN) OIZAHAT ISTIYOR 
MUSUNUZ (E/H) 2" 


Mr ö 


Z GETASSIFA$-""THEN GOTOZ 
4 IFA$-"E"THEN GOSURS300 

&g 60SUR1000 

7 GOSUBZLO00O 


20 Sİis04S52-0 

25 Fi-ls5:F2-135:POKEVtS,F1:3POKEVtS5,F2 

30 POFES52961X44ÖXY,i:POKE10244Xt40XY,81 

35 GETA$ 

40 IFA$-"A"ORA$S—"Z"THEN GOSUB200 

45 TIFA$-"ş "ORA$-"/"THEN GOSURSO00 

50 POKEL1OZA-XrdOX#Y, A2 

55 IEFFEEK(VtZ1) POTHENDX-—DX 3 X-X#DX:POKES4276,17:5F0 
RIZİTDISENEXT: PFOKE54276,0 

Sk : 

60 XEXtDX 

65 İFXSODRXS#10ORX-EB8ORX-Z9THEN GOTO2S500 

70 Y-Y-*DY 

75 IFYSOORY-24THEN DY-—DY:PFOKEZ4276,175FORIZITOS:N 
EXT:FOFHES4276,0 

76 : 

80 IFB$—"“E"ANDY>1THENYZO:DY3—DY: POKES4276,17:F0ORIZ 
1TOS:GNEXTI:FOKES4276,0 ş 

81 5 

85 IFB$-"FE"ANDYESETHENY—-24:DY-—DY:FOKES54276,17:FOR 
IziTOS:PFOHES4276,0 

86 : 

90 GOTOZO 

200 REM PFLAYERİ1I BAT MOVEMENT UFDATE 
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201 
202 
205 
204 
205 
206 
30Ö 
301 
302 
303 
304 
305 
306 
307 
500 
501 
902 
504 
AN A 
5OĞ 
906 
907 
508 
J09 
910 
511 
512 
S1ız 


514 


515 

516 

217 

518 

1000 
1001 
1002 
POKE 
1003 
1004 
1005 
1006 
1007 
1008 
1009 


IFF1S20THENFİZF 1420: G60TO206 
IFF1#235THENF İF 1-20:60T0206 
IFA$-"A"THENE İzF1—20 
IFA$-“Z“THENF İzF1420 

POKE V#3,F1 

RETURN 

REM PLAYER? BAT MOVEMENT UPDATE 
TEFPSPOTHENF23F2420: G0TOZ04 

IF F23235 THEN F22F2-20:60T0 306 
IF A$S"ş “THEN F2sF2-20 

IF A$-"/“THEN F2sF2420 

POKE V#5,F2 

RETURN 


REM GAME INSTRUCTTONS 

PRINT"BU OYUN TENNİS GIBI,2 KISIYLE OYNANIR" 
FRINT"BIR OYUNCU TOFU KAYBEDİNCE DIGERI BIR FU 
BL 

PRINT"IŞ PUAN ALAN OYUNCU KAZANIR" 

PRINT"1. OYUNCU (SOL RAKET) " 

FRINT"A TUSU RAKETI YUKARI FALDIRIR" 

FRINT"Z TUSU RAKETI ASAGI INDIRIR" 

FRINT"2. OYUNCU (SAG RAKET)" 

FRINT”; TUSU RAKETI YUKARI KALDIRIR" 

FRINT"“/ TUSU RAKETI ASAGI INDIRIR" 

FRINT"TOFA RAKETIN ORTASIYLA VURUNUZ" 
FRINT"BASLAMAK ICIN HERHANGI BIR TUSA BASINIZ" 


GET A$:IF A$S—-"" THEN GOTO S1iS 
PRINT"(CELR)" 
RETURN 


REM SFRAYT DATA 


“ 
“ 


VeZDAB:IPOKE V#21,6:P0KE 2041,135:PFOKE?OA47,13: 
V*423,0 

FOR NsO TO öZsPOKE B324N,Ö: NEXT 

FOR NO TO 62:PF0KEBIPAN, 255: NeNtZ: NEXT N 
POKEV#2,5İi:POKEV?3, 155 
POKEVt4 , 255: POKEV*S, 135 

FOKEV#40, 14:FOKEV*t41,14 

PFOKEV*16,4 

FOR NsO TO S4:POKE Vt4,N:NEXT 
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1010 : 

1011 REM SES KAYITLARI 

1012 5 

1020 PFOKE 54296,15 

1021 POKES4277,0:F0OKES4278, 240 

1022 POKES4275, 52:POKES4272,97 

1022 FOKES4276,0 

1024 RETURN 

1028 5 

2000 REM 

2002 XelsYslıDizl:D2e1 

2003 PRINT"GIRINIZ:" 

2004 FRINT"RAKET KUCUKMU (S) ,BUYUKEMU (CL) 7?" 

2005 GET A$:SIF A$-""THENGOTO 2005 

2006 IF A$-"L"THEN FOKE V*23,6 

2007 PRINT"HIZ YAVAS(S) ,HİZLİ(CF)?" 

2008 GET B$s31IF B$>"" THENGOTO2008 

2009 TF B#$-S"“E"“THEN Dizs2:D2-2 

2010 DXEDİisDYEDPSPOKE V#Zİ,OSFRINT"(CCLR)" 

2011 POKE 52281,0:PRINT"(ORN)" 

2012 RETURN 

2013 

2500 REM TOP ICIN ALTFROGRAM 

2510 DXDİi:DYED2:POKES4276, 3535:FOR Isil TO 100:NEXT 
IsPOKEZ4276,0 

2511 : 

2520 IEFX-OORX>İTHENS2-S2*t1:PRINT" (HOME) (DOWN) (DOKN) 
(LEFT) (LEFT) (LEFT) “S2: X-36:DX -—-DX:DYE—DY: Y#INT 


CZ#RND (1) ) t22 

2521 : 

25350 IF X-380RX-39THENS1-S1*1i:FRINT" (HOME) "SPC 
(359)S$1:X- 53 YZINTCS#RND(1)) 


2551 : 

2540 IF SI<ISAND S2<1560T025 

2550 POKEV*#21,0:PRINT"(CLR) OYUN SONU" 

2560 IF 51-15 THEN PRINT"1I.OYUNCU KAZANDI" 
2570 IF 52-15 THEN PRINT"2.OYUNCU KAZANDI" 
2580 PRINT"BIR OYUN DAHA(CE/H)?" 

2590 GET A$:SIF A$-""THEN 2590 

2600 IF A$-"E"THEN G0TO 1 

2610 PRINT"OYUN BITTI" 

2620 END 

3006 IF S1-15 THEN PRINT"1i.OYUNCU KAZANDI" 
. READY. 


TENIS- YAZILIM KONTROLU 
SATIR SAYISI-DEGER!I 


2 51 4 1 iğ3g ı2 2038 * 3 194 
4 50 * 5 118 * 7 col * eğ 127 
25 191 « 30 233 * 35 173 * 40 6ğ 
45 17. x 50 129 * 55 173 x« 56 165 
68 26 « 65 152 * 70 30 * 75 44 
76 167 « 80 213 x 81 163 x 85 130 
86 168 « 909 5 * e200 i21 * 201 41 
202 1902 » 203 se » 204 76 « ec05 29 
206 120 * 300 123 * 301 46 « 382 107 
303 49 x 304 36 x 305 353 x 306 121 
307 ci2 * 500 72 * 501 203 * 502 206 
504 46 « 505 2l2 »* 506 cl x 507 101 
508 231 x 509 80 « 510 Tdi pi e19 
512 31 x« 513 179 x 514 58 x 515 146 
516 0x 517 125 * 518 216 * 1000 162 
1001 ese x 19002 55 * 19003 197 x 1004 240 
1095 28 « 1006 87 * 1007 ?r * 10083 b4 
1099 137 x 1010 e5e » 101i 6d * idil 254 
1024 167 * 1025 2 * 2000 166 * 2dde2 193 
2003 236 » 2004 i7 x e9005 234 £ 2006 47 
2007 47? x 2008 242 * 2009 185 * 2010 der 
e011 123 « 2012 165 x 2013 0 * 2500 186 
2510 62 « 2511 3 * 2520 66 * 2521 a 
2530 2e5 * 2531 5 * 2540 c6 £ 2550 105 
2960 199 x 25rğ 202 * 2580 34 x 2590 195 
2600 e? x 2610 97 * c6cg 161 * 3006 195 
Ördek 


Ekranın üst kısmından geçen değişik renkteki ördekleri okla vurarak 
puan alıyorsunuz. Size ayrılan zaman 60 saniyedir. Ördeklerin hızı devamlı 
değişiyor. Ateş etmede kullanılan okun sola hareketi Z, sağa hareketi C ve 
ateşleme ise M tuşlarıyla yapılıyor. Okların sayssı da sınırlıdır. 


O POKESS, 255: POKES6,47:00-54272:A1-10:5-0:POKES4?7 
B,240:FOKES4276,3 

1 PRİNT" (CLR) “3 POKES32B1 , 0: POKESE280, O: V-5Z7248: POKEV4? 
1,63: FOKE2040,192:POKE2041,193 

2 FORIZİTO4:FÜKE204141, 194:FOKEV#4041,241:NEXT:POK 
EVt39,8:POKEV*40, 1: POKEV#29,1 
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ZE FORIZOTO2S54: READA: FOKE12288*1t1,0: NEXT 

4 Psl20:X-132:Y5217:5POKEV,120:POKEVYİ, 220:POKEV*Z, 
XEFOKEVtHE, Ye FORIsOTOZ 

5 X(1t1)-(141)X40:Y(1141)290:PFOKEVYAYIKZ,X(Itl):POK 
EVtÖKİKE, YCTrİ) NEXT 

b IsPEEK(V4ZO0) &FORI-SSE76T056256S5TEF40: FOHET,4:POK 
EI-CO,1605FOKETtİ2,4 

7 FOKELI-CO*Z2,1İ60:NEXT:EFORI 5522610351568: PF0KEL,4A:P 
OKLET-LO,16ÖSNEXT 

ORDER KKK OKOKOK ORK" 

9 PRINT" (HOME) (DOKN) (DOWN) (DOWN) (DONN) (LEFT) (LEFT) 
(LEFT) (LEFT) (LEFT) (WHT) ZAMAN (DON) (DOWN) (DOWN) (DOWN 
(DOWN) (LEFT) (LEFT) (LEFT) (LEFT) (LEFT) SEOR" 

10 PESPFEEK(197) 

il PRİNT" (HOME) (DOWN) (DON) (DOWN) (DOWN) (DOWN) (DOWN) 
(LEFT) (LEFT) (LEFT) (LEFT) (LEFT) (YEL) "ŞRIGHTS(Tİ$, El) 
PRİNT" (HOME) (DONN) (DOWN) (DOWN) (DOWN) (DOWN) “şe; 

iz PFRINT" (DON) (DOKN) (DOWN) (LEFT) (LEFT) GER) 
(LEFT) (LEFT) "şAlsİFTI$-"O00100" THEN20O 

LZ TEPEZSLSANDE MESTHENFP FP -45 TFARSÖOTHENX-X—4 

14 IFPFES2OANDP<22E7THENPPt4ş IFARSOTHENX—Xr4 

15 TEPEZ-Z6ANDAR<OANDA1 #OTHENALSAL-LSAR-I: GOSUR.LOO 
18 YaY-ARI ZsPEEK (VeZO0) 8 TEZ ESANDY »ŞOTHENGOSURB100 

19 TEY&£ĞÖÖTHENYEZİZSAR O, KePtil: POKEVLİ, Y 

20 FOKEV,JPEPOKEVFE, Xu TFARSOTHENPOEEV*KZ, Y 

ZO FORISOTOZ:X(14$1)X(CI$i)e3:IFX(C1141) #24İTHENXCIYİ 
Jae FOKEJOA SAT, 194 

40 FOKEVtAYMIK2,X(1I41) :PFOKEV$SYIK2,YCISİ)ENEXT 

s0 GÖTO 1ö 

100 S-5til0:7:FEEK(VEZEO) sAsös TFZANDSETHENAZİ 

105 TEZANDI6THENAS2 

ilO0 TFZANDSZSTHENA: 

1135 IEZANDATHENASA 

115 PFOKEJOALMA, 19ğLAR O: YEml8: XePelili POFLEVHE, Yi 
120 PFOKES4276,05FOKHES4276, 35 

125 FORIS1STDİSTEF—. Ss PFOKEŞA4AA7E, İKE: FOKES4AZYEÖ,İZNE 
XTEFOKHESAPYG,İSEPOKES42725,0 

130 ZsPEEK (V*E30) RETURN 

200 PFOKES4276,Ö:PFOKES4276,17:5FORI-24ÖTO1STEP—E:POK 
EBAP7E,I:NEXTEFOKESA4272,0 

210 FORİZİTÜLİ:FOKEVEİ,ÖNNEXT 

220 FRINT"(CLR) CGRN) ZAMANINIZ DOLDU!" 

230 PFRINT 5/10; "ADETORDER. VURDUNUZ” 
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240 IES3SOTHENPRINT”" (WHT) TEBRİKLER! 01“ 


250 PRINT" (DOWN) (DOWN) (DOWN) (FUR) BIR OYUN DAHACE/H) ?" 


260 GETASS IFA$-"E"THENRUN 

270 IFASLE"H"THENZ6O 

280 END 

300 POKES4276, 0s FOKES4276, 129:FORI-1TO8OSTEPT: FDEE 
GG ŞAE7A,ŞINNEXTEFOKESAZ72,0 

510 RETURN 

9000 DATAO,OÇ,OL OO, DÜŞÜ İİ Oz Oy Oy O O O, DÜŞÜŞÜ 
Ör GÖÇÜ, Ü,AEBLOÇĞİ,İYİ,O 

9010 DATASI, İSA, 6, DİŞÇİ, OD, 96, 24, 0,48, 48,0, EŞİ 
O, ÖÇ,aOŞİ,İSL OO, 6,0 

9OAY DATAO LOL O OO O ÜL ÜŞÜŞ İP 

90X0 DATAOÇ,O,OL, OOO, lÖ, OO, 60, OO İŞÇİL, 
OLİĞLÖĞÖ,lÖLĞLOLÜĞlOĞO,O,la 

9040 DATAO,O, 16, 0,0, löÇ, OO, lO,O,OlÖ, 0 O, lb, O,OŞ,İ6 
OL OL lÖĞOĞO,TöLDL OİL OL, İĞ i 
9050 DATAO,O, 16,0, 9? 

9040 DATAO LO, OL OO ŞOL, O ÜşEOy İŞİD, İDO, 74178 
gidüyiy aliş llÖş aş İzi, bi, dn, 0 

9070 DATASI, 2İĞÇJOJ Sİ, İD, Ol, Lİ Ol, İŞİN 
İs Üy, EARLŞOÇJOŞJİZ2BL,OŞJİŞO, O, 

9080 DATA, O,OŞ AŞ O OE O O İİİ PT 

9085 DATAO,O,O 

9090 DATAD ÇO, OOO A OO, DÜŞE, İZL O,İ,E 
ABÇŞÖÇJÜŞ, ATİ, Oy, O, İğ 

9100 DATASI LOŞ, ADI O, İĞ, IŞ, Al, lin O bh, ld 
PN KV YY 


9110 DATA120,0,6, 0, OOO ÜŞÜŞÜJOŞJÜŞJÜO,JO,O 


READY. 


ÖRDEK-YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 

0 se * İ 201 

4 107 x 5 199 

i * 9 147 

* 13 164 

* 13 2eğ 

* 20 E55 * 

110 147 113 ige 

* 130 159 

* 230 1rgğ 

x* er0 90 . 


e09 c53 
248 39 


Lik ik ik ik ik ük kk 1 
pa 
o 
G 
W 
n 
balik ali ik Sik ik ik SR Ek Ri 
— 
SG 
Ul 
— 
SU 
nn 
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9008 155 £ 3810 12 *£ 9020 O 147 


310 116 * 

9030 ee x 9040 169 * 9050 i « 9060 13 
9070 146 x« 9080 iso « 93085 216 * 909308 ec08 
9100 76 x 9110 134 

READY. 

Bio-ritm 


Bio-ritm yıldızların pozisyonlarına bağlı olarak sizin fiziksel duygusal ve 
zihinsel durumunuzu (değerlendiren bir programdır. Program çalıştırılınca 
önce doğum tarihinizi sormaktadır. Sonra bio-ritm grafiği için başlama tari- 
hini sormaktadır. Bu tarih şimdiki veya gelecekteki bir zaman olabileceği 
gibi geçmişteki bir zamanda olabilir. Daha sonra grafiğin kaçgün için ola- 
cağı soruluyor. Bunda bir sınırlama olmamakla beraber 4 günlük tahmin ek- 
rana tam sığdığından: ilk değer olarak alınabilir. Değerlendirme düşük, orta 
ve yüksek şeklinde sınıflandırılmak tadır. Ekranda her gün için fiziksel, duy- 
gusal ve zihinsel olmak üzere üç adet kayıt yardır. 


10 REM: BU PROGRAM BIR ALISTIRMA OLARAK 
20 REM: BIO-RITM GRAFIGI CIZMEKTEDİR 

21 FOKE646,1 

22 PFOKES32780,6 

45 REM: YAS GUNUNUN BILDIRILMESİ 

50 PRINT"DOGUM GUNUNUZU GUN, AY, YIL OLARAK 
ALTALTA YAZINIZ" 

55 FRINT 

80 INPUT Ji, J2, J3 

85 PRINTSPRINT 

90 PRINT"BIO-RITM GRAFIGININ BASLATILACAGI TARIH" 
95 PRİNT 

100 INPUT J4, J5, J6 

101 PRINT:PRINT 

103 FRINT“GRAFIK KAC GUNLUK BIR SURE ICIN OLACAK?" 
104 PRINT 

105 INPUT D 

110 IF JZ#2THEN 160 

120 Rz(J3-1) X365. 25 

130 RIsINTIR) 

140 Z1-(J2412)41)X30.6 

150 GO0TO0190 

160 RsJ3K365. 25 
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170 
180 
190 
z200 
210 
220 
2.50 
240 
2300 
260 
270 
280 
290 
500 
310 
5:20 
330 
359 
340 
345 
3550 
3560 
365 
570 
380 
590 
395 
400 
41Ö 


RIZINT(R) 

Ziz(J241) 430.6 

OZINT(ZI1) 

UzO*R1 

UzU*J1 

IF J5>#ZTHENZ270 

R9—-(J-1) XZ65. 25 

R8—INT (R9) 

Z9-((J5412) 41) XZ0 

GOTODZOO 

R9-J6XZ65. 25 

R8—INT (R9) 

Z9-(J541)X30.6 

OZZINT(Z9) 

UİizG2P4RS 

U1zU1*J34 

Ez(U1-U)*1 

REM: BIO-RITM GRAFIGI: 

PRINTTAB (10) "YASANAN GUN—";K 

FRINT 

PRINTTAB (10) “BIO-RITM TAHMINI:" 
PFRINTTAB (10) "OK OKOKOKOKOKOKOOOKOKOK 

FRINT 

PRINT" #zFIZIKSEL *-DUYGUSAL TEZIHINSEL" 
FRINT 

PFRINTTAB (9) "DUSUK"; TAB (20) "ORTA"; TAB (30) "YUKSEK" 
PRINT 

FORN-OTOD—İ 

PRINTTAB (1) "GUN"; N*tiş TAB(25410XSIN(6. 284X (NE) 


/25))"4e" 


420 


PRINTTAB (1) "GUN" ŞNt1iş TABCASHLOKSIN(6. 284X (NE) 


/28))"4" 


425 


FRINTTAB (1) "GUN"ŞN$1ş TAB C2S#İOKSIN(6. 284X(N*K) 


/55))"m" 


440 
450 
470 
500 


NEXT N 

PRINT 

PRINT"BU BIO-RITM GRAFIGI BITTI." 
END 


READY. 
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BIO-RITM: YAZILIM KONTROLU 
SATIR SAYISI-DEGER!I 


iğ 107 * 20 cdr * 21 143 * 22 247 
45 29 « 50 248 * 55 cdr x 60 136 
35 193 * 90 116 * 35 251 * idğ 21 

101 c30 x 1053 c3i x 184 34 « 105 1906 
116 2ili * 129 171 x 138 2c6 * 140 46 
150 105 « 160 0x 170 c30 * 180 123 
190 239 « 200 35 x 210 3e * 20 218 
250 179 « zdd 36 x 250 49 x 260 100 
270 52 *£ a230 403 « 230 136 * 308 34 
310 1435 £ 36 135 * 330 cil * 335 47 
3d0 169 * 345 41 * 350 izi * 360 jidr 
365 43 x 3rg 3 * 360 40 £ 330 iz” 
335 46 « 400 i23 « 410 60 * 4:20 53 
4:25 104 x« 440 357 « 450 38 4 gr 233 
soda 108 

READY 

Simetri 


Bu küçük program bir oyundan çok simetrinin kullanıldığı grafiksel bir 
yapıya sahip. Program RUN edildiğinde bir kaç saniye beklemek gerekiyor. 
Bit mod'lu grafik çizimi bu açıdan yavaş olmaktadır. Fakat program bunu 
çok iyi değerlendirerek çizim sırasında seyretme imkanı yaratmaktadır. El- 
de edilen şekiller RANDOM fonksiyonu kullanıldığından her seferinde fark- 
lı olacaktır. Şekiller her iki eksene göre simetriye sahiptir. | numaralı satır- 
da BA değişkenine değişik değerler vererek renk değiştirmek mümkündür. 


SIME TRI 


1 BAz2 

5 POKESS,255:POKES6 ,31 

S5 DIMPX<7?>:FORI20TO?IPC(1)221(7-I)1NEXT 

10 V-53248:POKEV*132 ,0!POKEV133,8 

30 POKEV*t24,PEEK(V124)0R8 

40 POKEVt17,PEEKC(<V*t17)0R32 

50 FORI-1024T02024:POKE1I ,BA:NEXT 

60 FORI-81921081924*841024:POKELI,O:NEXT 

100 K-791Y249ıDXSINTCRNDC1)43-1)>16DYZINTCRNOC1)43-1) 
182 IFDX-OANDDYZOTHEN100 
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105 YizYıkIzXıGOSUB19001X1-319-X:GOSUB1900:Y1-199-Y 
106 6GOSUB1900901X1-X:1GOSUB18098 

107? YizYa2ıklX#2:GOSUB19001Y1:199-Y1:X1-319-X1 

108 GOSUB1908 

118 KEK*#DKIYEYEDYI IFK<ODORK>15STHENDK--DX:GOTO118 
115 IFY<GORY>SSTHENDY:-DY:60T0119 

129 IFRND<1)2.9STHENDXSINTCRNDC(1)4X3-1) 

139 IFRND<1)2.STHENDYSINTCRNDC1)Xx3-1) 

135 IFDX<>380RDY< >3THEN195 

140 DXK-INTCRND<12Xx3-1)33DYSINTCRNDC 1243-1) 

142 IFDX#BANDDY:OTHEN148 

145 GOTO1095 

1009 YASINT(<Y1/8):YB:YI-YAKSIKAZINT(K1/8):KB-KI-XAX8 
1005 P-841024tYAXx320*tXAXx81tYB:XCEPCXKB) 

1010 POKEP,PEEKC<P>ORXC:SRETURN 

READY. 


SIMETRİIZ YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


i 35 * 5 250 * 6 1 * 10 81 
30 219 « 409 13 * 52 eee * 60 249 
109 180 x* 182 200 * 105 809 »* 106 171 
197 241 * 198 218 « 110 112 *« 115 199 
120 146 x* 130 148 x* 135 rd * 140 680 
142 208 « 145 105 *«* 19900 136 « 19905 57 
1010 137 * 8 La) * 8 0 * 0 12) 

0 — Bernard 


Oyuna başladığında oyunu oynayacak olan kişiye tuşlarlamı yoksa 
Joystick'le mi oynayacağı soruluyor. Oyunda amaç, adamınızı hayalete 
yakalattırmadan taşların rengini değiştirmektir. Bütün taşların rengi 
değişince yeni bir oyuna geçiliyor. Her yaşın oynayabileceği basit bir 
oyundur. 


1 PRINT" (CLR) "s POKES3281, 0: POKES3280,2:PRINT:GPRINT 
"(LBLU)NEG"SPRINT" mi Sİ N 
2 PRINT" (RVS) £ (RED) (LBLU) £(OFF) £G":PRINT 
(RVS) £ (RED) (OFF) (LBLU)N (RED) (RVS) ££G" 


3 PRİNT" (RVS)£ (RED) (OFF) (LBLU)N (RED) (RVS)(LBLU) £ (OFF) £G" 


135 


9. FORIZOTD1:PRINT" (RED) (RVS) (OFF) (L.BLU)G 
(RED) (RVS) (OFF) (LBLU)G"ENEXT 


30 PRINT" (RED) (RVS) - (OFF) (LBLU)G (RED) (RVS) 
(DEF) (LBLU) G(GRN) #ti— etti —ettett—" 

35 PRINT"($22) (RED) (RVS) O(COFF) (LBLU)G (RED) 

(RVS) O (OFF) (LELU)GO(CGRN) * bet O tetttt" 

40 FRINT" (#22) (RED) (RVS) O(COFF) (LBLU)G (RED) 

(RVS) (OFF) (LBLU) G(GRN) kE$— eee epi— etti" 

âŞ PRINT" (#2) (RED) (RVS) O(COFF) (LEBLU)G (RED) 


(RVS) (OFF) (LBLU)GCORN) bt— ret tt vet41" 
80 GOSUBA460 


B5 51-54774:FORI-5TO19STEP7: POKESİI#I, 15: POKESIYItİ 
Ş25SSNEXT:FOKESI424, 15 

86 FOKE449,1:P0KE650, 255 

90 POKESE?SO, PE FRINT" (CLR) “sFORIZİTO8B:ERINTENEXTEPRINT 
“ (LELU) (RVS) HANGI ARAC ILE 7?“:FRINT 

95 FRINT"(RVS) (RVS) (YEL) J (DEF) (LBLU) OJISTIK (PORT) 
VEYA (YEL) (LERN) T(OFF) (LBLU)USLA OR F“GPRINT: Eş“ 
100 İFPEEK (207) s22THENFOKE198,0:60TO0120 

105 IFPEEKE (203) <Z4ORFEEK (203) s6ÖTHENE$-"J":G0TO130 
110 DeDtis IFD#S5OOTHEND-O: G0TO8O 

115 GOTO100 

120 PRİNT" (OLA) "GPKINTEPRINT" (LBLU) HANGI TUS İLE... 
“SPRİNT: INFUT"-SOL YUKARI"ŞLO$:PRINT 

125 INFUT"—S0G YUKARI" ŞRO$:PRINT: INFUT"—SOL ASAGI" 
3LU$::"-SAG ASAGI"ŞRU$ 

130 PRINT"(CLR) “a0: FAS3: PO: RU-48 

135 BsllöÖrFs5SAZI: FORAZSOT0Dö:G0T0410 

140 FORAL-0T06: HSAX794A1X42 

145 FORISOTOP:POKEF#HAI, 4: NEXT: POKEB*H, 253: POKEH* 
Bt, 224: POKEB#H*Z2, 105 

150 FORISOTO1:PFOKEB*H*1440, 224: POKEF#HH1440, 2:3 NEXT 
#NEXTENEXT:FORI-4T0185TEF7 

151 FOKESISI,ÖSNEXT: RESTORE 

155 PRINT" (RUS) PUAN(COFE)"," (RVS) REKOR: (OFF) " 
160 BellöğiFs554Z5: FORASOTO6: FOKEFYAKAZ, 14: POKEBHA 
*42, 101: NEXT 

165 B-1454:F-55726:FORA-OT06: POKEFHAX79, 14: POKEBA 
79, 78: NEXT 

170 Bs1494:F-55766: FORASOTOS: POKEF*KAX79, 14: POKEBSA 
X79,101:NEXT 

175 ASINT(RND(TI)X7) :AİSINT(RND(TI)X7):S5511614AX79 
KALKAZ: GzA:GİSAl 

180 PÜKES, 222: POKES-40,170: IFASOTHENFOKES-40, 101 
190 FORISİTOL 
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İ95 LOCI)SINT(CRND(CTI) X7):L1CI)SINTCRND(TI)X7):L(1) 
-51161*L0(1)X794*L1(1)x42 

200 IFPEEK(L(I))<>224THEN195 

205 POKEL (1) ,209:5PO(I)2LO(I):P1iCI)sL1ICI) NEXT 

210 IFB$-"J"THEN420 

215 GETA$SIFA$-""THENZ40 

220 IFAS-LO$THENA1:A1-1:G60TOZ15 

229 IFA$SRU$STHENA1ZA11t1:6G0TOZ1S 

250 IFAS$-RO$STHENAZA—1:60TOZ15 

29) İFAŞSLUŞSTHENAZAtI:GOTOSIS 

240 IsltizTIFIsLTHENİIZİ 

245 IFPOCI) sÖTHENZ-Z:60T0270 

2300 İFPO(CT)<öTHENZ-2:60T0270 

299 IFPICI) sÖTHENZ—İ:60TO270 

260 IFPI(1)<6THENZ-O0:60T0270 

265 Z-<İNTERNDCTI) X4) 

270 IFZSSTHENLO(1)LO(1) *1:60TO0290 

275 IİFZSETHENLOCİ) <LO(CI)-1:G60TO29O 

280 İIFZSİTHENLİCI)zL1(1) t#isGOTOZ29O 

2805 L1CI)sL1(1)-1 

290 POKESI,207:POKESİtİ, S4:FOKES1I16,80:P0KESItS5,035 
POKES1*4,17 

295 L(1I)LO(1)X794$L1(1I) X42t11öil:1IFPEEK(L(1))5209TH 
EN:45 

300 PCI) -PO(1)X794P1(1) X4Z2tilöl:PFOKEP(1) ,224:P0(1) 
zLÖCO:PİiCT)zL1IC(I) 

305 POKESI*t4,ÖZIFPEEK(L(1) ) <222THENFOKEL (1) ,209:P0 
KEL(1)-40,224:6G0TOZ75 

310 POKEL(1) ,209:G0TOZ10 

515 POKESIt7,105:POKESI*t8,17:FOKESI*13, 240:PFOKESİI*t 
İZ, ÖZPOKESİYİ1,:35 

320 S-0X79401X4241161:POKES, 224: PFOKES—40, 224:1F0-0 
THENFOEES—-40, 101 

329 UsA:GISAl:S-AK79LALKA241161:I1EPEEK (S5) < >224THEN 
POFESI*t11, 0: G60TOZ80 

350 POKES, 202: PFOKES—-40,170: IFASOTHENPOKES-40,101 
555 POKESIS11,0:SF-S—1024455296: IF (PEEE(SF)ANDIS) 
14THENSA5 

340 GOTO240 

3âS FORW-SF-ITOSFtisFOKEW,FAZSNEXT:PEP*tizIFF>RETHEN 
REZP' 

330 PRINT" (HOME) (DOWN) ",P, RES IFPFSRUTHENZ&6O 

355 G0TO240 

360 FASFAYİ:IFFASISTHENFAZZ 

365 PFOKES5280,FASRUSRUYt481t10XL:3A$—'"" Gg PP4lOXLSTIFP> 
RETHENREZ—P 
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270 PRINT"(CLR) ":60TO135 
375 IFA-OÖTHENFOKES—-4Ö,101 
376 PRINT"(CLR) ":GOTO13S5 
“380 FORISOTO8:EFPRINTENEXT:FORI-180TO13ÖSTEP—İi:FOKES 
1424, 15:POKESI, 2074PFOKESİYİ,İ 
581 FOKESIt6,1453 
385 FOKESI*5,İ15:F0KES144,17:NEXT:FOKESIt4,Ö:POKESİ 
e 
386 POKESİ*tİ 
390 POKESI,503 ii 17: FOKESIt6, S2: FOKHESI*İ, OP 
OKESTt4,17:FORTE 1TO180: NEXT 
391 PFOKESIt4,0 
3293 PFRINT"(CLR) ":sGOTO135 
395 PRINT"diçdizdedize DO YUN BI TT Iphespppp" 
400 PRINTEFRIİNT"(GRN) Fi ILE YENI BIR OTUNA BASLAYIN 
LU ML 
405 FOKE198,0:WATITI98,1:G0T090 
410 READE,EL,EH 
415 PFOFESİIYKE,KELEFOKESİYEYİ,EHSPFOKESIYEt4,17:60T014 
0) 
420 RE (2SS-FEEK (56521) )ANDIS 
425 TFRS#OTHENZ40 
420 TERSATHENA1:A1—1:00TOZ15 
4255 TERS8STHENA1-A1t1:60TOS1S 
440 TFRSİTHENASA-L:GOTOZ1S 
441 IF Re15 THEN GOTOZ60 
445 TERSZTHENAZArI:GOTOZ1S 
450 GOTOZAO 
455 DATAO,180,8,7,247,10,7,10,13, 7, 105,17, 14,257,2 
i,İAŞlO, 26, 14,207,34 
460 POKES6,48:FORIZ1TOPİ:READA: NEXT: FOR1-828T0870: 
READG: FOKET,G:3 NEXT 
465 DATA120,169,49,153,1,169,0,153, 98,1255,100,169, 
208,122,99,169,48, 155,101 
470 DATA162,16,160,0,177,98, 145,100, 200, 208, 249,25 
OPP, SO, İĞİ, 202, 208,247 
475 DATA169,55,1235,1,88, 96:SYS5828:PFOKESZ3277, (PEEK( 
53272) AND240)OR1IZ 
480 READA: IFAX<OTHENRESTORE : RETURN 
485 FORJ-OT07: READE:POKE12288tAX8tJ,B:NEXT: 60T048Ö 


490 DATA160, 255,255, 255,255, 255,255, 255,255,170, 25 
S,255,231,195,195,129,0,0 

500 DATAZ?2,129,195,219,189,219,24, 255,255, 209,195 
,129,Z6,0,0,60,153,195,-1 

READY. 
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Gü BERNARD: YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


1 140 #2 | 3e * 3 37 * 5 108 
320 203 « 35 94 « 40 145 x 45 226 
80 130 x 85 243 x 86 105 £* 30 1583 
95 245 x 100 46 x« 105 139 x 110 78 
115 937? « 120 176 x* 125 1203 * 130 157 
135 80 x 140 251 x 145 9 x 150 5e 
151 9x 155 21. .x 160 1020 * 165 38 
170 136 x 175 28 « 180 101 x 190 39 
195 49 * 200 93 x 205 69 * cig 24 
215 81 « 228 62 * dec5 vi » 239 ee? 
e3i 230 x* 240 7? x» g45 182 * 250 133 
255 iS82 » 268 1683 * 265 160 £ erd 244 
eri 290 » 280 245 * 285 104 « 2930 cig 
295 0 x 300 159 x 305 215 x 310 118 
315 235 * 320 893 « 325 rr * 330 38 
335 iri x 348 ide » 345 70 & 3550 145 
295 103 * 360 88 * 365 920 * 370 18 
37? dce0 * 3r6 16 * 380 434 x 381 140 
365 23 * 3S6 94 « 390 53 « 391 35 
393 15 « 395 18r x 480 234 £ 405 16 
410 126 x 415 ird « 420 239 « 485 1r4 
430 163 Xx 435 ira x 4d 63 x 441 30 
445 rk 450 104 x 455 133 * 460 143 
465 ir? * 470 98 « 475 241 x 480 ceğ 
485 88 « 430 186 * 500 174 

READY. 

Gitar tüner 


Sesle ilgili bölümde notaların: nasıl elde edildiğine bakmış ve iki küçük 
melodi içinde program vermiştik. Müzikseverler için bu küçük programı gi- 
tarlarını pratik olarak ses ayarı yapmaları için ilave ediyoruz. Ses ayarı 
yapıldıktan sonra normal metotla ses ayarı yapma arasındaki fark görülecek- 
tir. Notaların çalma müddeti 150 numaralı satırdaki 2000 rakamını değiştir. 
mekle kontrol edilebilir. 


8 DIM HICIM),LOCIZ),NOSCI) 
10 FRINT"(YEL)GITAR TUNER" 
il FOR TsO TÜ ZOÖOÖSNEXT 

iz PRINT"“6 TELLİ GITAR ICIN" 
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3 PRINT"(WHDE,A,D,G,B,CTRL—E TUSLARINI KULLANINIZ" 
15 PRİNT KOKAR YOK KOKOKKOOOKK" 

17 PRINT"(CYN) 12 TELLİ GITAR ICIN" 

18 FRINT"(WHT) SOLDAKI SHIFT/LOCK TUSUNA BASTIKTAN 
19. FRINT"SONRA YUKARIDAKI TUSLARA BASINIZ" 

20 S-54P7P:FOR Ts0 TO 23:POKE S#T,ÖSNEXT 

2 POKE S174,if:PF0KE S15,17:P0KE 516,247 

70 FOR Tsi TO 11i:READ HI,LO:HIKT#HİSLOCT) #LO:NEXT T 
80 GET A$:IF A$-"" THEN 8O 

90 Hk (A$NEN) DK (ASAN) —EK (A$"D) 

92 AZKK-AK(A$-"G) —5K (A$S"BU) 6k (A$SCHR$ (5) ) 

95 ASA-7K (AS) EK (Ağız ) 

97 AZA-IK (ASE) TOK ÇAŞSUİ O) LİK (ASİ) 

100 PFOKE S,LO(AM):FOKE Sti,HICA) 

150 PFOKE 514,17:F0R Is0 TO 200ÖSNEXT IsPFDKE St4,16 
175 FOKE 198,0:60T0 80 

200 DATA 10,14Z,14,24,18,209,25,30,3İi,16$,42 

202 DATA 62,21,351,28,49,37,162,50,60,Z1, 165 


READY. 


GITAR TUNER: YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


8 115 x 19 102 * 12 se »* 13 204 
15 89 » 17 79 »x 13 123 * 19 182 
eo 240 » 22 152 * 78 3e » 80 243 
99 235 «* S2 1498 « 95 se * ST 34 
199 211 » 109 183 * 1/75 165 * 200 se 
eo2 5e * 8 2 * 8 a * 8 2 
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Spor-toto 


Spor toto programını çalıştırdığınızda önünüze yıl, lig ve düşecek 
takım sayısı değişkenleri çıkar. Bunlar girildikten sonra menuyu gö- 
rebilirsiniz. Bunlar sırayla: 

1) Takımlar, 2) Takım şehri, 3) Fixtürler,: 4) Sezon içi menu, 5) Verileri 
yüklemedir. 

Seçenek 1'de karşınıza girilecek takım sayısı çıkar. Kaç sayı gi- 
rerseniz sonraki bölümde girilen sayı kadar takım ismi yazılır. Bundan 
sonra seçenek 2'de girmiş olduğunuz takımların şehirlerini belirtirsiniz. 
Seçenek 3'de ise önünüze fikstürler çıkacaktır. Burada hangi takımların 
karşılıklı maç yapacaklarını tesbit edersiniz. Secenek 4'de seçtiğiniz liğin 
menusu gelir karşınıza. Burada 1'den 10'a kadar olan seçenekleri kul- 
lanabilirsiniz. | —Takım listesi 2 —Haftanın maçları 3 —Haftanın golleri 4 
—Puan durumu 5 —Takım durumu 6 —Genel durum 7 —Maç sonuçlarına 
giriş 8 —Sondurumu saklama 9 —Başa dönüş 10 —Program çıkışı 
Bu program sayesinde bütün sezonda yapılan maçları Dayanımı ge- 
çirilebilirsiniz. 


100 REM 
110 DEF FNY(X) sINT(XX100) /100 
11 PRİNT" ie 
112 PRİNT" | it 
1135 PRİNT" | N 
114 PRINT" | il 
115 PRINT" | CRVS) LIGLER VE FIKSTURLER 
FF) (BLU) 1" 
117 PRINT" | pe 
118 PRINT"  —-j ii 
119 PRINT" | ii 
120 PRINT" a gm 
21 PRINT" | RVS)| 
FP)" 
122 PRINT" L CRVS)İ 
FF) 1" 
1235 PRINT" | KRVS)İ 
FF) 1“ 
124 PRINT" . 
Pp)“ 

25 Fa#-" DR.I.SERDAR TETİK EYLUL 1986 BASLAMAK 
CIN (RETURN) i 
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0 


(0 


0 


“ (CUP) CU 


126 
ON n 
127 
128 
129 


161 


170 
180 
185 
190 
200 
210 
a 
0 
Mta! 
240 
ag0 
280 
290 
295 
200 
310 
320 
SEO 
240 
300 
360 
370 
380 
290 
400 
410 
420 
4:30 
440 


FF$-MID$ (FA$,2,59) #LEFT$(FO$, 1) FO$FF$:PRINT" 
KEE$, 2B)" | 
FORIZSİ TOZOSGETAS: IFA$<CHR$ (17) THENİ16İ 

NEXT Si 

GÜTO126 

FOKESE280, İZ:FOKESZE281,İ 

INFUT“(CLR) (RVS) YILAK/KK “YI$ 


INFUT" . (RVS) LIG İ,dA,aB... "şİLİ$ıLi$EsLİ$t".LIG" 


INPUT" (RVS) (ORNG) DUSECEK TAKIM SAYISI"ŞDU 
PRINT"(DOMN) (RS) SE ZON BASI " 


PFRINT" (RVS) 1 (DEF) : (RVS) TAKIMLAR 
PRINT" (RVS) 2 (DEF) 35 (RVS) TAFIMIN SEHRİ 
PRINT" (RVS) E (DEF) & (RVS) FIESTUR , 
PRINT" (RVS) 4 (DFE) 5 (RVS5) SEZON ICI MENU 
PRİNT" (RVS) 5 (DEF) E (RVS) VERİLERİ YUELE, 


GETG$ETFG$—""THEN2AO 
IFG$-"1“THENGOSUBBTO:G0T0190 
IFG$—"2"“THENGOSUR1070:G60T0190 
IFG$-"Z"THENGOSURSZO: 00TO019Ö0 
IEG$"4" THENGOSUREZ1O 


IFG$"S"THENGOSUR670: G0OSURA490 
PRINT"(CUR) (DOHN) (RVS) "YI$"—"LI$": MENU (DON) " 
FRINT" (RWŞ) 1 (OFF) & (RVS)TAHIM LESTESİ 

FRINT" (RVS) 2 (OFF) 5 (RVS) HAFTANIN MACLARI — 
FRINT" (RWS) EE (OFF) & (RVS) HAFTANIN GÖLLERİ " 
FRINT" (RVS) 4 (OFE) 2 (RVS)FUAN DURUMU v 
PRINT" (RVS). 5 (OFF) & (RVS) TAKIMIN DURUMU " 
FRINT" (RWS) & (DEF) £ (RVS) GENEL DURUM 
FRINT" (RVS) 7 (DEE) & (RVS)JMAC SONUCLARINI GIRIS" 
FRINT" (RVS) 8 (OFF) 5 (RVS) SON DURUMU SAKLAMA — 
PFRINT" (RVS,; 9 (OFF) 5 (RVS) BASLANGICA DONUS ei 


PRINT" (RVS) O (OFF) 
GETG$:İFG$-""THEN4ZO 
IFG$-"O"THENEND 

ONVAL (6$) GOSUB1IZ10,1150,1250, 2060, 2110, 262Ö0,15 


<RVS) PROGRAMDAN CIKIS 


60,600, 190 


450 
460 
470 
480 
490 
500 
S10 
520 


GOSUR1500: G0OTOZ1LÖ 


REM SUBROUTINES 

REM SUB EKRAN RENGİ 
IFERZÖTHENFOKESZE280, 13: PFOKESE281,i:ERsİSRETURN 
REM SUB INIT 

DIM T$(TS),F(TS,TS, 2), P(TS,6,İ), TM TSK, 3) GL 


TSK), RESCİS) 
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525 
SEO 
350 
260 
561 

SIN 
562 
Dö 
364 
565 
270 
071 

572 
572 
ag0 
581 

582 
58 


URN 


590 
00 
10 

GIC 

620 

630 

640 

680 


DIMPE(CTS,6,1) 
DIMTR#$ (CTS), PP(B),ETC(Ö,E),ŞACTS,İ),FICTS,) 
GSTE-lZ2:RETURN 


PRINT" (CLR) (RVS) (GRN) SON DURUMU SAKELAYACAEMI 
(E/K) P" 

GETG$: IFG$-"“THENS6Z 

1FG$:"H"THENRETURN 

IFG$-"E"THENSZÖ 

FG BNENORE$E >"H"THENSGİ 

REM SUB OFEN 

OPENİ,Şİ, 2EPRINT#İ, TS 

FORISİTOTSEPRINT#İ,T$(I) 

FRINT#İ, TA$CI)SNEXTİ 
FORTS1TOTS:FORJSİTOTS:FORLSOTOZ 
PRINT#İ,JECİ,İ,LİSNEXTLENEXTİ:NEXTİ 
EORTSİTOTSFORJ OTO: FOREÖTDİ 
PRINT#İ,PECİJİ,EDSNEXTESNEXTİSNEXTİ:CLOSE1 : RET 


REM SUBYENİ EASET 

PFRINT"(CLR) (DOWN) (RVS) YENI KASET TAKIP BASLAN 
FOZISYONUNA GETİR " 

PFRINT" CRVS) HERHANGI BIR TUSA BAS Ni 
GETO$ETEG$-""THEN&ZO 

GOŞURSZO 

PRINT"(RYS) YENI KASETİINİIZ HAZIR ":s60DS5UB15005 


RETURN 


660 
670 
680 
690 
700 
705 
710 
70 


REM SUBTAKIM VE SEHİR OREUMA 
OPENİ,Şİ,OSINFUT#L, TS 
GÜSÜUBRS2O0:FORIZİTOTSE INFUT#İ,T$CT) 
INEUT$İ, TR$CT)SNEXTİ 
H5xIİNTCCTS—-1) /2) X2t1:60T0740 


" 
Li 


REM SUBFIKSTUR OKUMA 


740 GOSUB1610:FORIS1TOTS:FORJ 1 TOTS: FORL-OTOZ:INFU 
T#L,ECI,I,L) i 

750 NEXTLENEXTİSNEXTİ 

751 FORIZITOTS: FORJZ0T06: FOREZ0TOİ1 

752 INPUT#İ,PECI,İ,E)SNEXTESNEXTİJSNEXTİ:CLOSE1:60S 
UB1770:3 RETURN 

760 ; 

768 FOR Hsi TO XV 


769 
772 


FORIZ-1 TO TS:FORJ-<0 TO &GFORESO TO 1 
PECT,İŞEİSEPCİ,İ,E) 
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773 NEXTKSNEXTİJ:NEXTİ 

774 NEXTH:RETURN 

800 ; 

810 REM SUBTAKIM GIRISI 

820 PFOKE19,64: INPUT" (RVS) TAKIM SAYISI"; TS: GOSUBS20:HS- 
INT (C(TS—1) /2)X2t1: XVHS 

820 EFRINT:£FRINT" (GUR) (RVS) "YI$"TAKIMLARI" 

840 FORIZİTOTS:EPRINTI"—"" (RVS) TAKIM ADI: "“şs INFUTT$(I) 
#sPRINT 

850 IFLEN(T$(I)) #İİTHENERİNT"EN- FAZLA il HARFLI TA 
KIM ADI"sizI-i 

860 NEXTİ 

870 FORJZ1TOTS—1:FORK2J*1T0TS:1IET$(J) >T$(E) THENC$ 
TSİ) TE (Jİ) ETE(K) STS (KE) <O$ 

880 NEXTK:NEXTJ:FOKE19,0:GOSUB1Z10 

890 RETURN 

920 : 

930 REM SUBFIKSTUR 

935 GOSUB1610:PRINT 

940 FORIZİTOTS:FORİZİ1TOTS: FORLSOTOZLECI,İ,L)s-İNE 
XTLSNEXTİSNEXTİ 

950 TTZINT(TS/2) :ERINT 

963 FORH&1TOHS: GOSUB1310 

964 PRINT" (UP) (RVS) (RED) FIKSTUR TAKIM NUMARALARI 
YAZILARAK GIRILIR" 

965 PRINT"(DOYN) (RVS) "H", HAFTA MACLARI GİRİLECEK" 
:sFOKE19.64 ' 

970 FORIZİTOTT:S INPUT" (RVS) 1. TAKIM 2. TAKIM (LEFT) 
(LEFT) (LEFT) (LEFT) (LEFT) (LEFT) “şŞFIKI,İ),FICI,E) 
971 PRINT" (UP) (RVS) (GRN) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) MAC. SAYISI "Şİ 

980 PRINT"KUP) (UP) “Ss EPRINTSNEXTİZPRINT" (CR) (DOWN) 
(RVS) “H", HAFTA OYUNLARI" 

990 FORIZİTOTT:lIzFICI,İi)slJEFICI,2):MTs0:G6G0SUB172 
ÖSNEXTİ 

1000 PRINT" (DOWN) (RVS) FIKSTUR DOGRU MU?  (E/H)" 
1010 GETG$: TIFG$-""THEN1O10 

1020 IFG$—"H"THENH&H-1:60TO01050 

1030 IFG$<>"E"THEN1010 

1040 FORIZİTOTT:F(FI(CI,İ),FI(I,2),Ö)sH:F(CFI(CI,Z),F 
ICI,İ), 0) sHtHSSNEXTİ 

1050 NEXTH:FOKE19,0:G00SUBS61:60TOZ10 

1060 : 

1070 REM SUBTAKIMIN SEHIRI 

1080 FOKE19,64:FRINT" (CLR) (RVS) TAKIMIN SEHİRİ: (DOWN) 


144 


“SFORIZITOTS 

1090 PRINTT$(CI)TAB(C1S)" ÜşŞg INPUTTRS$CI):PRİNT:NEXTİ 
«FOKE19,0 

1100 RETURN 

1140 

1130 REMSUB HAFTANIN MACLARI 

1160 İNPUT" (RVS) HAFTA “şH 

1170 PRİNT" CCLR) (RVS) "Yİ$"—"LI$ŞH". HAFTA MACLARI"SERINT 
1180 EsÖSFORİZ1TOTSEFORİJZİTOTSETFECT,İ, O) #HTHENİZ 

20 

1190 FTsSF(CI,J,İ) 

1200 TFETE—İTHEN:S İİ ZI:1JJ:MT-O0:G0SUB1720:5H5H*#1:M( 
Eşldeli ME, Je G0OTO1220 

1210 GisE(CI,J,1)1625F(I Jj, )ilisişsli)sJ:Misi:60SURİ 

720 

1220 NEXTİZNEXTİZIFGL (H) < #OTHENERİNT" (DOMNN) (RVS) ATILAN 
GOL "Gİ. (H) 

1230 RETURN 

1240 ş 

1250 REM SUBFRINT—HAFTANIN GOLLERİ 

1260 PRİNT" C(CLR) (RUS) "Yİ$"—"LT$"Ç(COYN) HAFTANIN GOLLERİ 
(OFF) "SPRİNT 

1270 FORİIZ—ITOHS:GİS$E"N G2 TEGL (Cİ) < POTHENGİ $-ST 

R$ (GL (1) ) 

1280 IFGL(TI4HS) £ #OTHENGZ2$-STR$ (GL (IHS) ) 

iL90 PRINTTAB(A)IŞTAB(B)":"GISTABCIS) IrHSŞTABRC19)" 
:1""GE$s NEXT I:RETURN 

12500 

1510 REM SUBTAKIM LİSTESİ 

1520 FRINT"(CLR) (DONN) (RVS) (RED) "YI$"—"LIS$" GOY) 
TAKIMLARI (DEF) (DON) " 

1550 FORİIZİTOINT(TS/2) PRİNT" (CYN) “Iş TAB(4) “—(RED) 
“T$CT)ENEXTTEPRİINT" (HOME) (DOWN) (DONN) " 

1340 FORIZINT(T5/2)4*1 TO TSEPRINTTAB(20) "(CYN) "IşŞTABCZ 
4)"—(RED)"TS$(I)ENEXTİSPRINTERETURN 

330 3 

1360 REM SURBSONUCLARIN GİRİLMESİ 

127/0 GÜSURİLSOZFOKE19,64: PRİNT" (RVS) SONUCLAR: * —1” SONUC 
SUZ "sifkzöthenreturn 

13580 FORLS1TOKSEPRINTTS(MCG,1)) 54 INPUT" “şGC(L Şi) £1E 
GL, 1) <ÖTHENFRINT: G0T01400 

1390 PRINTTS$(MCL, 2) )ş 2 INPUT" “ş6(ÇL, 2) EPRINT 

1400 NEXTLEFRİINT" (CLR) (RVS) "H". HAFTA (DON) "SG EORLS1TOK 
GMTsİisIFGCL,1)<OORG(L,2) SOTHENMT-O 

1410 TİZMCL Ji): 1J5MCL,2):61i:6(L,1):62:6(L,2) : GOSUB 
172Ö0:NEXTL 
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1420 PRİNT" GRVS) SONUCLAR DOGRU MUCE/H) P(OFF)" 
1430 GETG$E İFG$E""THENİ420 
1dd0 İFGS$EE"E"THENİ48Ö 
1430 FORLİTOKSTEG(CL,Jİ)<OORGCL, 2) <OTHEN1470 
1460 EGM, İİ, MEŞE Şİ)İSEGOLŞİ)EFCMCE,Şİ) MOL) ça) 
GL) 
1470 NEXTL:GDSUR1770 
1480 PODEE19,OSRETURN 
1490 
iğO0 REM SUBDEVAM 
IBLO ASS" (HOME) (DONN) (DOHN) (DOWN) (DOWN) (DOWN) (DONN) 
(DON) CDO) (DORA) ODEA COLA) (DON) (DOMN) ('DOWN) (DOWN) 
(DOWN) (DOWN) (DOWN) (DOMN) (DOWN) (DOWN)" 
Bo Ni PRİNT" EDOWN) (RVS) (OFE) D (RVS)JEVAM 
(DEF) OR (EVE) ENER dd ka 
530 GETG$ETEĞ$E""THENLSEO 


$"D"THENİ6İLÖ 
1550 LEG$ENRTHENPRINTAS: FRINT" (DONN) Fl: (RVS) 
CERLEVE RENGİ O OFiku aayamıma anca Gi ©; 
değ TEĞ$E"E"THENL&OÖO 
170 İFU$ECHA$ (128) THENFDOKEESE280, PEEE (SE280)—219 
1520 TFBSECHR$ (134) THENFOEHESSABİ,FEEKH(SE281) 2359 
(090 GÜTÜLESD 
18600 ERIİNTASIPRINT" 

şssGÜT01520 i 
16İ0 PRINTASEERİNT" (DOWN) (EVŞ) GBLU) LUTFEN 
© EYINIZ “şe RETURN 


167 0 REMSURSAVE -3 
İödü PFEİNT"CCLR) C(RVS) CGRN) SON DURUMU SAKLAYACAEMISIN 


(E/K) FP" 
GE 


TO$EİFO$-""THEN1630 
LERE“ THENRETURN 

yea. İFG$E“E"THENİ680 
: İP #NENDRG$E #"H"THEN164Ö 


€ OPENİ Çİ, 

1681 FORİSİTÜTSE FORJS1TOTS: FORLSOTO? 

1682 PRINT#L,EFCİŞİ,ŞLİNNEXTERNEXTİSNEXTİZLCLOSELLRET 
UEN 

1710 : 

1720 REM SURBSONUC 

1750 İFMTSİTHENPFRINTTAB(A)ITAB(4) T#CTII) TARC16)GITA 
ECL9)" — “T$ÇIJ)TARCSA)GA 

1740 TFMTE OTHENPRINTTAB (2) ITABCA) T#CIT)TABCI9)" 5 
"TSCKIJ) 
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1750 RETURN 

1760 : 

1770 REM SUBFUAN DURUMU 

1780 FRINT" (GİR) (RVS) (PUR) EUAN DURUMU HESAPLANIYOR 
(OFF) “;7ÖzTI 

1790 FORISOTUTSSA(CI,Ö)sİFORİSOTDESE(CI,İ, O) s0ECI, 
İ,İ)SÖNEXTİSNEXTİ 

1800 REMOGEMAYE 

1810 REMO 1234546 

1820 FORISİTOHSX2:6L(I)x0:NEXTİ 

1830 FORISİTOTS:FORJZİTOTSSIFECI,İ,İ)s-İTHENİ920 
1840 GİSF(I,J,İ)aE2SE(I,I,2):GL(ECI,İ,O))GL(ECI,I 
JOY) #61462 

1850 IFGİSGETHENL 12:1252: 60T01880 

1860 IFGİ #G2THENLİSİ:L252:G60T01880 

1870 Lis3ıL?si 

1880 F(1I,4,0)P(1,4,0)461:P(1,5,Ö)SP(1,5,0)4621PCİ 
ŞLİ,OİSPÇI,Lİ,O) Mİ 

1890 P(J,4,O)SP(J,A,O)AGZ:E(İ, 5,0) SP(J,5,O)4GİLE(İ 
LEO) P(J,LA,O) Yİ 

1900 IFTR$(I) <TR$(J) THEN1920 

1910 PF(J,AŞİ)E(J,4,1)4GP:EP(J,5, İİ) SP(J,5,1)461:P(J 
LZ, İİ) P(J,L2,1)41 

1920 NEXTJ:NEXTİ 

1930 FORIZİTOTS: FOREZOTOL:P(I,6,KİSPCI,İ,E)KSAPCI, 
2,K) 

1940 P(I,OÇE)SPCIÇŞİ,KİSP(CI EKİ APCİ,E,E)SNEXTE 
1950 ACI,İ)SP(1,6,0)#(P(I,4,O)-P(I,S,O))/İEZ*PK(I,A 
,0)/1E6t(TS-A(1,0))/1E8 

1960 NEXTI:ZisTİSPRINTE PRİNT" (GRN) SANIYE: "ENY((71-270) 
60) 

1970 FRINT" (DOWN) (RVS) PUAN DURUMU SIRALANIYOR. " 
1980 FORISİTOTS-1:FORK1I41TOTS 

1990 IFACI,I)YACE,I) THENZOİO 

2000 FORJZOTOİLPFECİ)SACI,I)SACI,I)SACE DSA, IDE 
P(J):3NEXTİJSERİNT “aa ş 

2010 NEXTE:NEXTİ 

2020 FORIS1TOTS: FORJSO0TD4: FORK-OTO 

2030 F(O,d,KİSP(OJİ,KİAECI,İ, İİ ENEXTESNEXTİSNEXTİ 
2031 IFH£ PHSTHENZ2O40 

2032 IFHsHSTHENGOSUB2OS1 

2040 FRINT:FRINT" (GEN) SANIYES"ŞENY((TI-Z71) /60) 
2045 EPRINT:FRINT 

2046 RETURN 


2050 : 


147 


2051 FORIZİTOTS:FORJ-O0T06:FORK-OTOİ 
20535 PK(CI,J,K)SP(I,İJ,K) 
2054 NEXTK:NEXTJ:NEXTİ 
2055 RETURN 
2060 REM SURPUAN DURUMU BASIM 
2070 PRINT"(CLR) (RVS) "LI$"(LGRN) "TAB(12)" O G B 
M A Y Ps" 
2080 FORIZ-1ITOTS:KE-A(I,O) 
2082 FRİNT"(RED) "T$(E)Ş 
2083 PRINTTAB(IZ)P(K,O,O)şaPRINT" (LEFT) "P(KŞİ,O)şEPRİNT 
(LEFT) “P(E,2,O)ŞEPRİNT" (LEFT) "ECE, 3, O)Ş 
2084 FRIİNT"CLEFTM "P(CE,A,Ö)ŞEPRİNT"(LEFT) "P(CE,5, O); 
iPRINT"(LEFT)"P(E,6, 0) ş: PRINTTAB(ZŞ)I 
2092 GETEGSSİFG$—""THENZ2O9A 
20935 IFG$S-CHR$ 32) THEN2O9S 
2094 IFDS$E SÜHR$ CEZA) THEN2O92 
2095 NEXTISPRINTERETURN 
2100 : 
2110 REM SURTAREIMIN DURUMU 
2111 PRINT"(CCLR) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (RGHT) > 
(RGHT) (REHT) (RGHT) (RVS) (RELv|A (OFF): (RVS) TEK BIR TAKIM 
2112 EFRINT" (RGHT) (RGHT) (RGHT) (RGHT) (RVS) BR (OFEF):5 
(RVS) BIR KAC TAKIM SEC." 
21153 PRINT" (ROHT) <RGHT) (RGHT) (REHT) CRVS) C (OFF): 
(RVS) BUTUN TAKIMLAR 
2114 GETA$IIFA$-""THENZ114 
2115 IFAS-"A"THEN2129 
2116 IFA$-"E"THEN2122 
2117 IFA$-"C"THEN2119 
2118 : 
2119 FORZZ-1TOTS: TN-ZZ 
2i20 GOSURBZ214Ö:NEXTZZ:60TO0S510 
2121 : 
212P? INPUT"(CLR) (RVS) KAC TAKIM SECECEKSİN"ŞTR 
2125 FORZZ-ITOTR 
2124 GOSUBİZİÖZ INPUT" (DOWN) (RVS) (BLU) TAKIMIN NUMARASI" 
GizINZI 
2125 GOSURB214Ö0:NEXTZZ:G0TO310 
2126 : 
2129 GOSURİZİOS INPUT" (DOWN) (RVS) (BLU) TAKIMIN NUMARASI" 
siz TNT 
21350 IFTNE£OTHENGOSUB1310:60TO2120 
2151 : 
2140 TYzO:FORIZ1TOTS:IFTNSA(I,0) THENTYZSİ 
2150 NEXTİ 
2151 60SUB1610 
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2152 PRINT" (CLR) (BLK) "YI$"—"“LI$" 
2160 PRINT ZZ3:PRINT"(RVS) (PUR) 0 G6 B 

M A Y pon 
2170 PRINT" (BLU) “T$(TN) ss FORJ-OT0D6:PRINTTAB(JX4t11) 
PCTN,ŞJ,Ö)şENEXTİZEPRINT 
2171 PRINT" (RED) (RVS) ILK YARI: "ş: FORJ-O0T06:PRINTTAB 
(KAKLİ)PEKCTN.J,O) 5: NEXTJ:PRINT 
2180 PRINT"(CYN) ICERIDE"ş: FORJZOT06:FRINTTAB(JX4*110)P 
(TNÇGİÇJ, O —FCTNÇGİ,Şİ)şŞENEXTJ:PRINT 
2181 FRINT"(RVS) (BRN)1. Y.K. S1 'şsFORJSOTD06:PRINTTAB 
(İKAKLİ) PECTNGİ,Oİ—PECTN,İJ,İ)şENEXTJSPRİNT 
2185 PRINT" (BLU) DISARIDA" ş: FORJZOT06:PRINTTAB(JK4*110)P 
(TNgJ,İ)İşSNEXTJSPRINT 
2188 FRINT"(RVS) (FUR) 1. Y.DIS.S"ş:3 FORJZOTD6:FRINTTAB 
ae İşİ)şŞENEXTİSPRINT. 

200 PRINT" (RVS) (BLK) ILI" TAB (23) ">" TR$ (TN) 

2210 PRINT"L.SIRASI"TAB(C2E) "E"TY LO SERINT"'AVERAJ"T 
AB (25) "<"P(TN,4,0) EKTN, 5,0) 
2220 FRINT"“(GRN) OYUN BASINA FUAN"TAB (ZE) ""ENY(PKTN, 6, 
O)/P(TN,O,O)) 
2221 FRINT"I.GALIRIYET Z4"TABCER) "E"ENYCO(P OTM, İİ, O) — 
PCTN, 1,19) /(PCOTNÇÖÇ,O)—PC(TNÇŞÖ,İ))) 


2222 PRINT"I. BERABERL IK7."TAB (23) “S“ENYC(P(TN,2,0)— 
P(TN,J2,1))/(P(TNÇ,OÇJDİ-PCOTNÇŞOÇ,İ))) 
2225 PRINT" (REEL) (RVS) T.S. BÖL 4 "TAR CEER)"E"ENY 


(P(TNÇA,O)-EF(TN,4,İ))Z/(P(TN,4,0)40)X100) 

2274 IMS-P(TN,O,O)-E(TN,O,İ) 

2236 FRINT"D.S.G0OL YEME YUZDESİ"TAB(23) "E"ENY(E (TN 

.5,İ)Z/(P(TN,5, 0) 40) X100) 

2240 PRINT" (BLU) (RVS)D. OYUN FUANI YUZDESİI"TAB (PE) 0" 

FNY(F(TN,6,İ)/((EC(TNÇO,1) 40) X2) 4100) 

2247 PRINT"(RYS)D.GALIBIYET YUZDESİ"TAB (22) "—"ENY(P(T 

N,i,İ)Z/(PC(TN,O, 1) 40) X100) 

2245 FRINT"(RVS)D. BERABERLİK YUZDESİI"TAB (PE) "—"ENY(P(T 

N,2,1)/(EP(TN,O,1)40)X100) 

2246 FRINT"(GRN)I.S.M.B.ATILAN GOL"TAB(2Z) "E"ENY((PCTN 
Ş4â,O)-EF(TN,4,1))/IMS) 

2247 FRINT"D.S.M.B.ATILAN GOL"TAB(23) "—"ENY(P(TN,4 
Şİ)Z/P(TN,O,İ)) 

2250 PRINT" (LERN) OYUN BASINA ATILAN GOL"TAB (23) “-"ENY CE 
(TN,4,O)/P(TN,O,O)) 

2255 PFRINT"OYUN BASINA YENİLEN GOL"TAR(23) "S"ENY(P 
(TNS, O) /P(TN,O,O)) 

2270 GOSUB1S500 

2280 FORIZİTOTSX2:FORJZOTOZSTMCI,J) zÖZzNEXTİ:NEXTİ 
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2290 REMOs TAKIMİ:G1 2:62? 3: YER 

300 FORİIZSİTOTS:EFTEE(TN,İ,O)SİFİZTNTHENZ2220 
2310 TMCETJ İİ ZECTNÇI,İİETMCETJEİSECTN,Jİ, 2): TMCET,O 
)zİSsTMCET, Bl 
2320 NEXTİ 
2830 FORİZİTOTSEETSECİ,İN, Os 1FI- TNTHENZESO 
2340 TM(ETJEİSECİŞTİNJİİETM(ET Lİ SECİ,TN, 3 TMKET,O 
zİSTM(ET, BER 
2850 NEXT 1. 
2460 PRİNT" (CLR) "YIS$"—"LI$*:"TE(TN) şa PRİNT" CERN) (RVS) 
BASARI GRAFIGI":b$-"g" 
2261 FÖRİISİTOHSX2SİFTM(CI,İ)SOORTMCI,O)SİTHEN2400 
AE8O IİFTMCI,İ)sTMCI,2) THENERİNTE$; 
2290 TETMCI,İ) ETP .,.. GHENERINTE$" (UP) (LEFT) “ES 
(DOWN) "iş 
249 TETMCI,İ)STM(CI, 2) THENERIİNT" 
2400 NEXTİ 
2410 PRINTSÜZ0: NJEP 
2411 FORIS1TOHSX2:C<C*11 
2412 IFC#E10THENCE£O 
2412 TENJ >s#10THENNJ-O0 
2415 TECENİ OR GENİ THEMERİNT" (LEFT) "O" (DOMN) (LEFT) 
(LEFT) "iş 
2416 TFCSNİTHENERİNTNİ " (JE) (LEFT) “şa NİNNİ? 
2417 IECEEHSXSTHEN2420 
2419 NEXTİ 
2420 ERINTS PRİNT" (DONN) (BLU) (RVS) GOL GRAFIGI (DDUN) 
(DONNİ (DON) (DON) (DOWNİ (DOWN) “SPRİNT 
BAZO FORIZİTOHSKPSTETM(Cİ,İİLOORTM(CI,O)<İTHEN2S00 
24d0 TETMCİ,İ) #OTHENPA70 i 
2450 FORJİZİTOTMCI,İ)SERİNT" (YEL) M (CUP) (LEFT) "g3 NEXTJ 
B4A6Ğ EDRJZLTOTMCI,İ)SERIİNT" (DOWN) "şe NEXTİ 
2470 TETM(CI, İP) SÖTHENERİNT" (RGHT) "ş # GOTO2500 
2480 ERINT"C(DOYN) "ss FORİS1TOTM(CI, 2D) SERİNT" (RED) (DOWN. 
(LEFT) Uşs NEXTİ 
2485 FORJZ1TOT MOB) is FRINT" (UP) "ŞE NEXTJSERINT" 
(REHT) "3 
2486 NEXTT:GOSUB1S00 
AŞ LEH HS5THEN2BOO 
2491 FORT-HSeİ TÖHSK2:ETETMCI,İ)<ODRTMCI,O)<İTHEN2S0 
O 
2497 TETMCI, İİ sÖTHENZAŞ5 
24925 FORJZİTOTMCI,İ)SERİNT" (BLU) CUP) (LEFT) "ş 3 NEXTJ 
2A9A FORİSLTOTMCI,İİSERİNT" (DOWN) "gs NEXTJ 
2495 TETM(I, 2) SÖTHENERİNT" (REHT) “g3 GOTO?EO0 
2496 PRINT" (DON) “ss FORİJZİTOTM(CI, BE) :ERINT" (YEL) 
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(DOWN) (LEFT) "ŞE NEXTJ 

2497 FORİJ-İTOTMCI,2)4*1:5PRINT" (CUP) "şa NEXTJSPRİNT" 
(RGHT) 

2000 NEXTİ: BOSURIS00 

2510 EFRINT" COLA) CRV) “YTB STS (TN) gl. DEVRE MACLARI" 
aga0 FÜRİZİTOHS: GOSUREESOSNEXTİ:GOSURISOO 

AJA0 EFRIİNT"(CCLR) (RVS) UYİŞ$"—“TS (TN) "s2, DEVRE MAĞLARI" 
2d) EORİZSHSITOHSK Zİ: GOSUBAPS6ONEXTİ 

d3gASğ GOSURLB0O0 

2550 RETURN 

aa60 REM SUBX 

ag7/0 İFTMCİ, O) SİTHENERİNTİZ RETURN 

da80 MTEÖŞTFTM(CİI, İİ) -İTHENMTEİ 

2590 TETMCI, Bi THENTİISTNEİJSTMCI,O):GİSTMCI,1):62 
STMCI,2) 

2600 IFTM(CI, EB) #STHENTİSTNGİISTM(I,Ö)SGESTMCİ,İ):Gİ 
STMCI,2) 

2610 GOSUBİIZ S0: RETURN 

2620 : 

2630 REM SUBDENEL DURUM - i 

2640 PRİNT" (CGLE) GRVS) "Yİ$"—"LIİS"GENEL DURUMU" 

2630 TXEF(COJOJO) Ar TBEPCO,A,O)/E 

2660 TAzEFCO,A,O) TEP CO,İ,O) 

2665 DESP(O,2,1) 

2670 DYEP(O,İi,ldaDAZPF(O,A,I) 

2680 ERINT"CRED) (DON) (RVS)OYNANAN OYUN" TAB CE) "TK 
2690 PRİNT" (RUS) KALAN OYUN" TAB (ZE) "TŞK (TS-1) -TK 

2700 ERINT"ERVS) GALİBİYETLE BITEN"TAB (CE ENTE" (CA"ENYK 
T6/1XX10600)")" i 

2710 ERİNT"(RVS) BERABERE BITEN"TAB(CR) "ENTE" CA"ENY(CTB/ 
TXXLO0) "İ"SERİNT 

2720 ERİNT"(RVS) ATILAN TOFLAM GOL"TAB(C2E) "TA 

A720 EFRINT"OYUN BASINA GOL "“TAB(CEZE)'E"ENYCTA/TX) 

2740 EPRINT" (GEN) (RVS) DIS SAHA GALIBIYETI "TARCAN 
1D ÇA ENYCDY/(TG*#O) X100) 1) i 
2745 FRINT"(RVS)DIS SAHA BERABERLİĞİ “TAB CR) UE"DRU ÇA" 
ENY(DB/(1Ğt0)4100)")“ i 

2750 PRINT"CRVS) s.s PUAN YÜZDESİ" TAR (CR) EZENY(CLİDOK 
(DYEZAPF(OÇ,2,İ))/(TXX2tG)) 

2760 EPRINT"(RVS) aaa BOL"TABCEE) "DA" CA"ENY(DA/CTAt 
0) X100)")" 

2770 ERINT" (YEL) (RVS) ORTAK SAHA OYUNU" TARCAN) a 
TXE-PF(O,0,1) 

2773 PRINT"(CRVS) .. . GALIBİYETİ "TABCMA) Sa" ((TX—FC(0ÇO,İ) 
)—(TB-FC(O,2,1)0)) 
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2780 FRINT"(RVS) .. .BERABERLIGI"TAB(2) amalla 1) 
2790 PRINT" (RVS) (RED)L I DE R "TAB(23)“—"T$(A(1,0)) 
2800 PFRINT"(RVS) (BLEK.) DUSECEK TAKIMLAR"TAB(23)";“ 

2801 PRİNT" (HOME) (DOWN) (DOWMN) (DON) (DOWN) (DOWN) (DOWN) 
(DOWN) (DOWMN) (DOWN) (DUN YUYN) (DOWN) (DOWN) (DOWN) (DOWN 
(DOWN) (DON) (DOWN) © 

2802 FORI<TS-DU TO (TS-DU) YINT(DU/2) 

2805 PRINTTS$C(CACI,O))ENEXTİ 

2804 FRINT" (HOME) (DOWN) (DOWN) (DON) (DOWN) (DON) (DOWN) 


(DOWN) (DOWN) (DOWN) (DON) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) 
(DOWNN) (DOWN) (DOWNN) " i 


2808 EDRIZ(TS—DU) #INT(DU/2) ri TO TS 

2804 FRINTTAB(C2O) TSCACTI,O))ENEXTİ 

2810 GOSUR1SOO: FORI-0T06: FORJZOTD06:6T(1,J) zÖSNEXTJ 
:3NEXTTI:SUs0 

2820 FÖRİZİTOTS: FORJZİTOTSETİFE(CI,J,1) 5-1THEN2S8S0 
2830 GisF(CI,J,1)162:F(CI,İ,e)zIFGis ZANDG2:7THENGT(G 
İJGER)-GT(Gİ,JG2) ti:GÜTDLBSO 

2840 SU-SUr1 

2850 NEXTJ:NEXTİ 

2860 FRIİNT"(CLR) (RVS) (GRYZ2) "YI$"—"“LI$"SONUCLAR-OYUN 
SAYISI":Ü$E “OYUN” 

2870 FORİIZOTD&6: FORJZOTJİSTEGT(CI,İ) GT CJ, 1) zOÖTHEN29 
00 

2880 TFİSSJTHENFRINTTAB(CAD IŞ GTCT,I) GTİ, İT 
AR CDO) 

2890 IFIZJTHENPRINTTAB(CA)I"e"“Tee"GTKI,I) TABA) C$ 
2900 NEXTJSNEXTİ 

2910 IFSUSL FOTHENFRINTTAB (4) "öt :""SUş; TAB(2O0)C$ 
290 GOSUBIS0O: RETURN 


READY. 


SPOR-TOTOZz YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


i 93 42 106 * 3 107 * 4 2083 
5 109 * 6 ed6 * 7 ili « 8 1900 
9 29 * 100 139 « 110 67 * ill 159 
ile 137 x 115 138 * 114 139 x 115 180 
lir 46 » 113 4? x 113 4S x 120 95 
ii 65 x ise 66 * 125 r * 124 188 
125 53 * 126 159 » i2r 254 x i23 218 
129 110 » 16i 34 £ 179 ilg * 180 iri 
135 37 x 190 220 * 290 ol? x 218 14 


keikeiik. Sik. dik. Hkeik Sik cik Sikeiikelikelik öikedik Skelik.Sikellk sike lik .Sik.ik Sik. ik ik dik dik 2k Sik ik SE SR SE SE VE OE VE VE VE VE vE OE ve ve 


e30 
280 
319 
350 
390 
430 
470 
510 
558 
563 
571 
581 
600 
640 
660 
710 
r51 
769 
800 
840 
ss0 
935 
464 
380 
1020 
1069 
1190 
1170 
1219 
1250 
ic90 
1330 
1570 
1410 
1450 
1498 
1530 
15rg 
1610 
1650 


1680 


ireğ 
1760 
1808 
1840 


Lkeliksikeiik sikelik.Sikelikedikelikeik silik Sheikh kellik. sik 2k ik 2k sik ik dk 2k ik 2k Sk ik SK EK MR GK SR SE SE SE SE SE SE SE VE OE | 


ik ekeikeik iikelikikeiksikeikesikeikeiksikeSkeliksikeikeiikelike sike ikekeikellkelke kekik kek kek ksk akne ksk kk ni 
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idğrö 
19310 
1350 
1990 
2030 
e045 
2053 
cörg 
2004 
2095 
eliz? 
2116 
2128 
eld 
2150 
e151 
elri 
clöğ 
ecel 
cc36 
2246 


Pari 


CCı 
2320 
e360 
2395 
edlz 
edir 
e440 
2430 
e4y1l 
243935 
e519 
2545 
e530 
2620 
2660 
c690 
er30 
2760 
r9d 
2803 
2810 
2890 
e69g0 
- e310 
READY. 
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Lik ik ik Sik Sik Sik Sik Sik Sik. Sik Sik. Sik ik ik Sikeik kök ik ik kk kek ik kkk seke ek 2k ik ek eke eke lk ika 


1388 
1920 
1369 
2000 
2031 
2046 
2054 
e060 
eğg2 
2100 
2113 
eli? 
2121 


las. 


e1l3i1 
else 
2180 
ee00 
2e22 
ce4ğ 
2247 
2e80 
2330 
e361 
2400 
2413 
2419 
2450 
24835 
cd4g2 
2436 
e5e9 
2050 
c590 
2638 
2665 
2r00 
er409 
27/70 
2800 
2304 
eseğ 
2869 
e909 


LR SK SE EE SE OE ME SR SE EE SA SE Şi X 4 SE A SE SA SA SE $k MA Si Si Si Si Sk SA ik Sk ik kk kk ik ik ik kk 


1690 
1930 
1970 
2010 
2032 
2050 
2055 
2062 
2093 
e118 
2114 
2118 
ei22 
ele6 
2140 
2160 
e181 
ce10 
cle3 
ccd 
2250 
2egod 
2340 
2380 
2410 
c415 
2420 
2460 
2486 
e493 
243gr 
2530 
2560 
e600 
2640 
26r0 
2710 
erd45 
2775 
eso01 
2805 
2630 
28r0 
e910 


LR SE SE OE WE GE SE SE SE GE SE SR SE Sk &E Sk SE GE Si Si Si SE SE Sk Si Si Si Sk SE Sk Sk Si SE Sk Sk ik Ek ik kk kk 


1300 
1340 
1939 
e029 
2040 
e051 
2060 
20893 
2094 
elli 
2115 
eliğ 
2123 
ela9 
2150 
elrg 
2135 
cced 
22024 
eecd5 
2255 
2500 
2350 
e39ğ 
2411 
2416 
2430 
e4rg 
2430 
2494 
2500 
e540 
25rğ 
2610 
2650 
2680 
2720 
er50 
2730 
es0e 
2806 
2840 
2630 
eyeğ 


Saat 


Makina kodunda yazılmış bu küçük program ekranın sol üst köşesine 
saat, dakika ve saniyeyi vermektedir. Başlama zamanını verdikten sonra 
bilgisayar açık olduğu müddetçe saat devam etmektedir. Programın yerleş- 
tirildiği adres BASİC programının konulduğu adres olmadığından NEW ya- 
zıp hafızayı temizledikten sonra programlamaya devam edilebilir. 


SAAT 


5 DEFFNACX'ZINT(X/10)X4164(X-INT(K/105x10) 

6 POKE792,193 

10 AD-49152 

20 FORC-0TOSI:READH$ 

39 LsASCCLEFT$(H$,1))-48 

40 RsASCC<RIGHTS$CHS$,1)-48 

58 POKEAD*C,CLtCL>9)47)416t(4RtC(R>9247) 

69 NEXT 

70 DATAA2,00,AD,0B,0C,29,7F,20,80,00,A2,03 
72 DATAAD,BA,DC,20,00,00,A2,06,AD,89,DC 

80 DATA20,908,00,AD,08,DC,A9,BA,8D,02,04,8D 
82 DATAB5,04,A9,07,80,82,08,80,95,D08 

890 DATA4C,3I,EA,48,298,FO,dA,dA,dA,dA,18,69 
s2 DATABB3,9D,00,04,68,29,0F,18,69,B8 

108 DATASD,01,04,A9,07,90,88,08,90D,01,08,68 
110 DATA?S,A9,00,8D,14,03,A9,00,80,15,03,58,68 
120 SU-ADt48:SHsINTX<CSU/256)1:SL3SU-SH4256 
139 JHzINTCAD/256)1JLzAD-IJH*256 

149 POKEAD*t8,SL:IPOKEAD*S,SH 

150 POKEADt16,SL:POKEAD*t17,SH 

160 POKEAD*24,SL:IPOKEAD*25 ,SH 

170 POKEAD*8İI ,JL:POKEAD*S8G ,JH 

175 POKES36334 ,PEEK (56334)0R128 

180 SYSAD*79 

185 POKES6335 ,PEEK (36335 >)AND127 

190 INPUT"SAAT “;H:POKESG331,FNACH) 

200 INPUT"DAKIKA ";M:POKES56338 ,FNA<M> 

210 INPUT"SANIYE "JSIPOKES6E329,FNAC<S):POKES6328,0 
READY. 
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SAAT YAZILIM KONTROLU 
SATIR SAYISI-DEGERI 


5 386 * 6 208 * 18 40 * 20 200 
30 ee * 409 12 * 50 245 * 60 165 
70 150 * ?2 40 * 88 183 * 8€ 113 
so 193 *« 92 93 * 1909 e03 £ 110 59 
120 163 * 130 e * 140 144 *£ 150 239 
160 2368 * 170 eo31 * 175 180 * 180 184 
18685 e3e * 190 31 4 200 156 * 210 162 
Amiral Battı 


X.Y değerlerini veriyorsunuz, bilgisayar atış yapıyor. Yaptığınız 
atışın yeri belirleniyor. Eğer isabet yoksa, geminin nerede olduğuna dair 
tahmini bilgi veriliyor. Geminin yerini bulduğunuz zaman oyun bitiyor. 
Daha çok ilkokul seviyesindeki çocuklar için bir oyun! 10 adet denizaltı 
batırınca Amiralliğe terfi ediyorsunuz. 


10 REM &&X AMIRAL BATTI XXX 

30 ATSSCHR$ (17) :FORTZ1T06:AT$-AT$SYAT$ENEXTT:AT$ CH 
R$(19) YAT$ 

32 FRINTCHR$ (147) şCHR$(144) :GOSUR10000 

35 PFOKES5Z280,6:FOKES3281,1 

40 PÜKESOtİ,1i2:FORDL<1TOSOO:NEXTDL: PFOKESO*Y1,0 

50 FRINTLEFT$(AT$,1)S5FC(6)"ATIS 0" 

60 FRINTLEFT$(CAT$,1)SFC(23) "ISABET O" 

70 PRINTLEFT$(AT$,2)SPC(11)"Y" 

80 FRINTLEFT$(AT$, 15) SPC (25)"X" 

90 FORJ-10T019 

100 PRINTLEFT$(AT$, 5) SFC(Jr3)"." 

110 PRINTLEFTS$(AT$,14)SPC(J*3)"," 

120 PRINTLEFT$(AT$,15)SFC(J-35) MID$(STR$(J—-10),2,1) 
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150. 


140 
150 
160 
170 
180 
190 
200 
205 
210 
220 
230 
232 


b —$ 
ana 


e 
a 


240 
242 
244 
245 
260 


NEXTJ 

FORJ—ZTO14 

PRINTLEFT$ (AT$,J)SFC(12)"." 
PRINTLEFT$(ATS,J)SFCCEE) 9, 
NEXTJ 

FORJ-4TDIZ 

PFRINTLEFT$ (AT$,J)SPCCİL)MIDS$S(STRS(13—-J), 2,1) 
SH-OsHTs0 

AXZOSAYZO 

NEXTJ 

5YEİNT(RND(CI)X10) 
5X-INT(CRND(1) X10) 
PFRINTLEFTS$(ATS,17)SPC(9)5" 


PRINTLEFT$ (AT$,17)SFC(9)ş"ATISINIZ (X,Y) ? “ş 
GETAXS$: IFAX$£ "O"ORAX$ >"9“ THENZEZ 
PRINTAXS", “sz AXSVAL (ÂX$) 

GETAYS$: IFAY$£ "O"ORAX$ "9" THENZ4Z 

PRINTAYS: AYZVAL (AY$) 
PRINTLEFT$ (AT$, 13—AY) SPC(1S#AX) "&" 
FORJZİ100TOZOSTEP-1:POKESOSHİ, 10*J:FORDL&İTOİOSN 


EXTDL JJ: FOKESOYİ,Ö 


270 


FOKESOt4, 129: FORJZ1TOSO: POKESO*t1,J:FORDLsİTO1Ö 


ZGNEXTDL 


NEXTJ: FOEESŞMO0*t1,0:FOKESO0*4,17 
PRINTLEFT$ (AT$, 20)SPC(2)" 


PRINTLEFT$(AT$S,21)SPC(7)" 
FRIİNTLEFT$(AT$S, 2O)SFC (7); 
IFAX-SXANDAY-SYTHENGOT0420 

FRINT"ATISINIZ GEMİNİN ©“; 
IFAY£SYTHENFPRINT"GUNEY"; 
IFAY#SYTHENFRINT"EUZEY"; 
IFAX<SXTHENFRINT"BATI"Ş 
IFAX>SXTHENFRINT"DOGU"; 
PRINTLEFT$(AT$,21)SFC(7) "YONUNDE, KAFTAN..." 


9 SHsSHtİi 


PRINTLEFT$(AT$, 1)SPC(13)SH;CHR$(157)5" 
FORDL-1T0200: NEXTDL 

GOTO232 

FORJs1T040 
PRINTLEFT$ (AT$, 13—AY)SPC(CIZYAK)" " 
FOKESO*1 , Jı POKESO18, 100-1 

PRINTLEFT$ (AT$, 13-AY) SPC(CLZYAX) ŞCHR$(113) 


157 


FÜKESO*8, Jı FOKESO*1, 100-—J 


NEXTJ: FOKESOt1, Os POHESO0*8,0Ö0 
FRINTLEFT$ (AT$, 20)SFC(12) "TAM ISABET !“" 
FORDL-1TO100Ö0:NEXTDL. 


5 FORJ-4T015 


PRINTLEFT$(AT$,J)SPC(12);". ." 

NEXT 

HTSHT*1 

PRINTLEFT$ (AT$, 1) SFC(29)HT;CHR$(157);" 
IFHT&İ1ÖTHENGOTOS40 

FORDL<1TOSOOSNEXTDL 
PRINTLEFT$(AT$, 20) SFC(2) "RASEA BIR DENİZALTI G 


ORULDU !" 


510 
5940 
30 
56Ö 
J6z2 
570 
80 


 GOTOZ20 

FORJZ1T010 

NEXTJ 

PRINTCHR$ (147) 

PRINTLEFT$(AT$,8)SFC(11)5" KUTLARIZ !" 
FRINTLEFT$ (AT$, 10)SPC(9)5'“ 10 DENIZALTI BATT 


Lİ 


90 
600 
END 


PFRINTLEFT$(AT$,1IZE)SPC(12) 4 "AMIRALLIGE " 
PFRINTLEFT$(AT$, 14)S5PC(9)ş“" TERFI ETTINIZ 1"; 


1000600 REM SET UP SOUNDS 

10010 50-347272 

10020 FORTZOTO28: FOKESO*T,ÖZNEXT 
10040 FOEESO*5, 9: POKESOtİZ2,9 
10050 FOKESOtb, 240: PFOKESOrH13, 240 
10060 FOEESOt24,15 

10070 FOKESOt4,17:PFOKESO*Yİ1,İ:9 
10080 RETURN 


READY. 


AMIRAL BATTI YAZILIM KONTROLU 
SATIR SAYISI-DEGER!İ 


107 * 30 57 « 3e 177 * 35 196 
65 £ 50 , 186 * 68 113 * 70 ee5 
e6 * 90 69 * 100 39 * 110 90 
58 * 130 e9 * 140 se * 190 ©e34 

i * 170 33 * 1860 66 * 190 226 


e00 celi »* 205 cce * zig 28 x 220 170 
230 170 * 232 53 * 235 de * 23” 83 
e40 140 » ede Tr »* gdd ese » 245 155 
268 5 * ard le2l » 275 e32 * 290 138 
e95 193 * 300 176 * 310 248 x 320 19 
333 106 * 340 125 * 350 2 * 360 20 
370 88 * 380 106 « 330 190 x 400 183 
410 101 « 420 60 * 425 123 £* 430 2eğ 
435 ga * 437 cer » 440 1/4 x 450 166 
452 237 x 453 69 x 454 110 * 456 40 
460 107 « 470 197 * 472 103 x 480 192 
490 - 228 * 510 s9 x 540 60 * 550 zile 
560 36 » 568 24 * 5rd 143 x 580 155 
592 4 x 600 207 x 10000 66 £ 100109 213 
igeco 7? * lamda 137 x (MASA 70 « 10060 235 
10070 28 * 1080809 217 

READY. 

Top kontrolu 


Çerçeve içinde verilen topu Z ve M tuşlarını kullanarak alttaki oyuncuyla 
yakalayıp tekrar zıplatmak lazım. Her defasında puan alıyorsunuz. Üç adet 
topunuz var, üçünü de kaybedince oyunu da kaybediyorsunuz. Oyun biraz 
yavaş olduğundan topun hızlanmasını sağlamak için programda XD, YD 
(topun hareketi) ve X, Y koordinatlarını değiştirmek okuyucuya bırakıl 
mıştır. 


Ö REM TOF KONTROLU 

i POKESZ281,0:P0KE 53280,9 

2 C0-S4272:P5150:X2150:Y>190: Ve51248: SÜ-O:L1-3: XD- 
INT(RND(1) X9—4):YDs-—i 

3 FOKE Vt2i,z:POKE 2040,15:POFE 2041,14 

4 FOR 1-0 TO 126:READASPFOKE 8Z32*1,G:NEXT 

5 PFOKE V,PsPOKE Vt1,200:5PFOKE Vt2,X:POKE V£35,Y 

7 PRINT"(CLR) (WHT) HADI BAKALIM! (BLU)SKOR:" 

8 FOR 155381 TO 55406:POKEI,ö:FOKE 1-C0,86:NEXTSF 
OR 1-55281 TO 56156STEP40 

9 POKE 1I,5:5POKEI-CO,86:POKE 1It25,ö:POKE 1t25-C0,86 
s NEXT i 
10 PRINT" (HOME) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
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(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) KRGHT) 
€RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (WHT) "ş Sş" "LI 


20 


22 


80 


a 


90 


93 


PFE-PEEK (197) 

IF PE<>12 AND PE<>56 THEN 50 

IF PE-12 AND P>70 THEN PzP-2 

IF FESZ6 AND F<240 THEN PzP42? 

POKE V,P 

YizYıXızXıMsO 

YizYIKYD: X15X14XD 

IF X1470 OR X1>240 THEN XD-—XD:5-S5*1:M1 

IF Yi>220 THEN XsP:Ys200: XDSINT(RND(1) 9-4): YD> 
LIsLI-1:G0TO 110 

IF Y1470 THEN YDsi:XDSINT(RND(1)49—4):5-511:M&1 


IF Y14210 AND PEEK(V130)< 0 THEN YDs-—i: XDsINT(R 


ND(1)X9—4):5-5172 

100 IF MsO THEN XeXi:YsYi:sPOKE V#2,X:POÖKE V*£3,Y 
110 IF LI>OTHEN GOTO 10 

120 PFRINT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (DOWNN) (DOWNN) 
(DOWN) (DOWN) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
KAYBETTİN!!!" 

150 PRINT"(DOWNN) (DOWN) (GRN) (RGHT) (RGOHT) (RGOHT) (RGHT) 
(RGHT) (RGHT) (FUR) BIR OYUN DAHACE/H)" 

140 GET A$:IF A$—"E" THEN RUN 

150 IF A$-E"H" THEN 140 

16Ö END 

9000 DATAO,OL,O,OL,OLOJOLOLOJOŞO, OOO OOO ÜŞÜN (9) 
74 255,240,7,255,240,0,62,0,0 


9010 DATA44,128,0,92,128,0,92,128,0,73,0,0,62,0,0, 


30, 


ÖyOSÖŞOLO,İSLOYOÇİ/ŞOLOŞ17 


9020 DATA 0,0,49,128 

9030 DATA 0,O0,OJOŞĞOÇL OL ÜLÜLÜŞ, ÖLÜ, ÜŞÜ 
9040 DATA 0,60,0,0, 200, Ö0Şİ,ldğ,İYa 

9050 DATA 3,255,192,7, öğ, EDA, igili 
9060 DATA 7,2585, 224,7, 203, Aşil, ami 
9070 DATA 3, 255,192, iş, öğ, İ92,Ö, 2d, 
9080 DATA OLLÖ,OL O OL OL,OL OOO, OLÜJOJOL,Ü 


READY. 
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TOP KONTROLU YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ i 
2 107 


ğ 133 & 1 143 * * 3 3r 
4 36 * 5 SI * 7 96 * 8 2e4 
9 216 « 19 136 * 20 V5 » 22 68 
26 95 « 32 idi x 40 101 x 50 209 
60 207 * 70 95 « 88 184 * 909 v0 
95 135 « 100 195 x iig e3r x 120 154 
130 509 x 140 242 x 150 84 * 1609 119 
9000 197 x 9910 58 * 9020 e09 * 9030 id 
3040 114 x 9050 i3s7” x* 3060 138 * 9079 26 
9088 89 

Ayainiş 


Aracınızı ayın yüzeyinde bir noktadan itibaren yükselerek sağdaki yeşil 
piste indireceksiniz. Ekranın üstündeki yatay şerit aracınızın yakıt seviyesi- 
ni gösteriyor. Yakıtınız bitmeden yükselerek, görünmeyen mayınlara çarp- 
madan sağa doğru hareket etmelisiniz. 

.Kontrol tuşları 

M tuşu aracı yukarı kaldırmak için 

C tuşu sağa hareket için... 

Z tuşu sola hareket için... 


9 REM AYA INIS 

.i POKES5, 255:FOKES6,47:V:53248: PFOKEVt32,Ö:POKEVr35 
O 

5 FOR 1-172544T012551:POKEI,ÖZNEXT:PFOKES4296, 15 

10 FORIZ0TO111:READA:FOKE12288t1,A:NEXT 

12 POKEV-t24, 28 

15 X-4:Y-17:S50-10Z74: CO 5296:KEB-197:FU-250: VV-O 

20 GOSUB m 

23 FORIZİT 

30 Pe INT (RND (1) X630) » IF PFEEK (SCYP) < #EZTHENSO 

35 POKECO#P, 10: PÖKESC*F',İZ:NEXTİ 

37 PRINT" (HOME) (RED) CCCCCCCCCCCCCCCCCCCECCCC"Ş 

40 PRINT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) 
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(DOWN) (DON) (DONN) (DOMN) (DON) (DONN) (DOM) CDOHN) 

(DONN) CRGHT) (DFEF)D(CDONN) (LEFT) G.EFTDEFG"Ş 

45 PRİNT" (HOME) (DOWN) (LEFT) (LEFT) GLEFT) (DOWN) (DDHN) 

(DOWN) (DON) (DOHN) CDOMN) CDOMN) GDONN) EDOHMNİ (DOWNİ) (DOHN) 

(DOWN) (DOWNİ) (DOMN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWM) (DON) 

(EFT) (LEFT) G.EFET) (GEN) HTJ"; 

30 ESPFEEKH(EE)SİF FUEZETHEN öp 

S2 TE E<#B&6 THEN 60 

Dü) VVEYVeTaFÜEEU—26 TF VWe—5& THEN Vye—gi 

36 PFOKE SA27E, 726P0KHE 54272,1695P0KE SARP 7,isePDOKEE 
all, ÖFKE 354276, 129 

60 VUEYVA, ETE VW310 THEN VW 10 

65 DEYY/10: YISINT(YeD) 3 PEPEEE (GÜRYLXEJOKXİSİFPES AN 

DVV #ÖTHEN FUEL, ÜğVWEOyDEO 

67 İF BFsi2 THEN 200 

70 TEFFSOTHEN XisX-1sYİzYeişFUsFU—.1sG0TO0 86 

75 TEPSİ THENXİEXtisYİzYeİiFUEFU—.lsG0T0 dö 

77 YisYeDg TE Yizi THEN Yizl: YVW-Ö 

78 IF EUSITHENA40O 

80 XileXe(ES17) (EZO) gELEFU (HELE) TEXİZLOTH 

ENX10 

88 IF XL#E9THENXİ1ZÖ 

86 IF X-X1 AND INTCY) #INT(Y) THEN 90 

87 TF FEEKH(SCHINT(COYİ) #dÖrX1) 217 THEN 200 

88 TF FEEK(CSGRİNT(Yİ) #dÖ$Xİ)&EEESTHEN 100 

90 FOKE SÜHİNT(Y) XdDeX çamlı XeXlı YEYİ 

100 YISINT(Y) SEFOKHE ZDOeYİXd4ÖKk, 76PF0OHE SÜrYIXdOrX, ll 


1Ö01 İF XEAS ANDX£A7 AND INTECY) s19 THEN 200 

108  PORHE SÜRFU/1Ö, 2 

1085 GOTO So 

200 PFOKE SCHİNTCY) KdürX, il YEİNT(OYİ)8PDEE LCOHYXd0 

Kg asPDEE SÜHYKdÖOKX, İN 

205 POKE D4AJA,sdıPDEE 24272, 7d6POKE 24277, 12746POK 

E 54276,ÖNPOKE 54276,129 

210 FOR Isi TO 2OÖ0OSNEXTEPFOEEVE2A, SOSPRİNT" COLA) (DEF) 


(YEL) MAYINA CARFTINIZ i 
220 PRİNT" (ERN) BIR OYUN DAHACE/H) FG FOKE 54272, 0: P0KES 
4273,0 


Mad GET AŞITF A$S"E"THEN 12 

2a0 TİF ASSE"H"GOTO 2S 

aj END 

SOO FOR Isi TÜ ZÖÖÖ:NEXT 

Z05 PFOKE Ve24,2Ö8PRINT"(CCLR) (OFE) (RED) BRAVO! BASARDINIZ 
(DOWN) (DOWN) (DOWN) (DOWN) CDOWN) " 
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AalO GÖTOZ22O 

400 POFE V$24, 20:sFORIZ1 TO 10OOSNEXTEPRİNT"CCLER) YAKITI 
NIZ BİTTİ! "sgoto 220 

2000 PRİNT" CELA) (WAT) CDONN) (DON) (DOWN) (DON) CDN) 
(DOWN) (DOWN) (DON) (DON) (DOHN) (DOWN) (DOWN) (RGHT) (EGHT) 
ERGHT) (RGHT) (RGHT) GRGHT) (RGHT) (RIEHT) GRGEHT) GRBHT) CEGHT) 
BA (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (AĞHT) 
EREHT) (RGHT) (RGHT) ER", 

2003 PFRINT"ECC (RGHT) (RGHT) (RGHT) GRGHT) GEGHT) (RGHT) 
RGHT) (RGOHT) CRGHT) (RGHT) (RGHTİ C(RGHT) GRGHT) CRGHT) ÇET) 
RGOHT) (RGHT) (RGHT) (RGHT) (RGHT) (EGHT) (RGHT) (EGHT) (RGHT) 
(RGHT) (EGHT) GRGHT) (RGHT) (EGHT) (REHT) (REHT) GRGHT) 
(RGHT) CRĞHT) SOCCCCA"Ş 

2010 PRİNT" (RGHT) (RGHT) (RGHT) (EGHT) GRGHT) GRGHT) (RGHT) 
(RGHT) (REHT) GRBHMT) GREHT) ECU COCCCA (REHT) CEGHT) GEĞMT) 
(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (EĞHT) GRİHT) GRGİHTİ 
(EĞHT) (RGHT) ERGHT) GRGHT) (EBHT) (REHT) CRIEHT) 
BEEACULUUCUCCCŞ i 
20185 ERIİNT" ERGAT) (EBAT) CREHT) CEĞGHT) GEĞHT) (RGHT) GEBHTİ 
(EGHT) GRGHT) (RGHT) (RGHTJ BA CREHT) CREHT) (EGHT) GRGHT) 
EROHT) (RGHT) ECCA (RGHT) GROHT) CCCCCOCCCA (RGHT) (RGHT) 
(RGHT) ERECCA", 

20PO EFRINT"GCCCRRÜCUÜCCCOCCCC (RGHT) GRBHT) (RGHT) CEGHT) 
(RGHT) (RGHT) (RGHT) (REHT) C(RGHT) (RGHT) (RGHT) &COCOĞ (ROHTİ 
(RGOHT) GREHT) (RGHT) (RGHT) CÜCGCCCCCCCCÜCCCCBBAE"; 

2ÖZ8 PFRİNT"RBECCCCCC (RGHT) (RGEHT) (RGHT) (RGHT) (RGHT) 
(RGHT) GCECCCCCGCCCCECLCCGCEC (RGHT) GRGHT) GREHT) CEĞHT) AE 
CECECCCCCBERBBBACCCCCCCCUCE"; 

200 PRINT"CCCCCCCCCCA (RGHT ) ECCCCCCCCCCCCCCCCCCC 
CCCCCCC CECCCCCEĞÜCCCCCCCCCCCCCC" Ş 

JON EFRINT"ÜCCCC"Ş 

2040 PRIİNT"GOCCCCCCCECECCCCECECECECCCCEEECECECLCEC 
CU" 

2045 e ll 


“"w MOL ME > 
"" " 

20JO POKE 36295, İSRETURN 

10000 DATA AŞI İİ, İŞİ, Pişi, 28, İİ, ald, dD,ad 
8,248, Al, 

İOÖOS DATALAŞ, 285, 2, İN iy İN illa EDEM İnen İRİSİ, 


ke Ça e e a Çe a Çar a Çal 


10010 DATA 0,0,24,126,124,460,24,36,0,0,1,2,2,2,5,5 
166, İ29,0,0,0,O,O,O 

10015 DATAO,0,128,64,64,64,160,160,0,0,0,0,65,68,1 
31,4,0,0,0,0, 255,0, 255,24 

10020 DATAO, Ö,ÜŞÜ,2E2, 34,195, 32,0,120,6R, 754, 255,6 
6, 231,66 
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10025 DATAO,0,0,16,40,16,0,0,8,56,252,635,60,52,74, 
64 


READY. 


AYA INIS: YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


al 34 » 1 39 * 5 20r * 10 iğr 
12 15 x 15 ed40 * 28 154 » ©5 15 
30 e2.* 35 2o2 * 3r e3r x 40 146 
45 148 * 50 S7 x Se 185 * 55 246 
56 113 x 60 22 * 65 219 » 67 173 
79 46 * 7 59 * rr 55 * 78 201 
s0 178 x 85 84 * 86 30 * 8r 153 
88 ec1 x 309 66-.* 19009 100 x 101 191 
1902 63 « 195 52 * 200 3r x 205 161 
e10 131 x sed i5e x* de5 100 » &36 37 
e35 113 x 390 15 * 395 95 « 310 ? 
400 81 » 29000 rs x 2995 157 * 2019 101 
2015 eci * 2020 198 * 2025 20 * a2030 64 
2035 37 x e8dd 140 x 2945 88 * ed5d 1:0 
10000 v4 » 10005 182 « 10010 230 * 10015 30 
190c0 57? » 19025 11 

Kayak oyunu 


Bu oyunda kayakçı ağaçlar arasında bir kursu tamamlıyor. Ağaçlara ve 
diğer engellere çarpınca hakkınız yanıyor, oyunu tekrar başlatmanız gere- 
kecektir. Eğer belirli engelleri geçerseniz puan alıyorsunuz. Kursu tamam- 
ladığınızda alkışlanıyorsunuz ve ekranda aldığınız puan belirtiliyor. 

Kontrol tuşları 

Z tuşu sola hareket için 

M tuşu sağa hareket için 

Sola veya sağa giden kayağı diğer yöne çevirirken ilk hareket kayağın dü- 
zeltilmesi olmaktadır. 
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0 POKE S5, 255:sFOKE 56,47:FOKE 52281,15:FOKE 52280, 
iSGPRINT"CCLR)" 

i DslıXs140: V-51248:91-0: S-Ö:PFOKE Vtr21,i 

2 FOKE 2040,193:F0KE Vt39,2:FOR 1:0 TO Z18:READ 0: 
PFOKE 12288t1,0G: NEXT 

3 PFOKE 547278,Ö:F0OKE 54276,0:PFO0KE S542735,Ö:P0KE 5427 
2,0 

4 FOKE 54296,10:FOKE 54278, 240: FOKE 54276,19 

9 FOR Is 1P7800TO012870: READA: POKET,ASNEXT: FOKEV*24,2 
8:FORI1I-12544T012551 

6 POKELI,ÖSNEXTEFOKEV, XsPOKEVt1, 60 Z:5PEEE.(V£31) 

10 55541:5151 *#15PRINT" (HOME) (DOWN) (DON) (DON) (DOWN) 
(DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DONN) (DOWN) 
(DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) C(DOMN) (DOWN' 
(DON) "31 FE SL-220 THEN 1000 


11 POKE 54273,0:FESPEEK(197):1F SL-180 THEN GOSUB 
300 

2 IF FEZ12 AND D>O THEN DsD-Ii:FOKE 2040, 192$4D:POK 
E Ş4275,100 

14 IF FE-36 AND D<Z THEN DzDti:POKE 2040,192*D:PFOK 
E 54275,100 

15 IF X4d45 THEN Dsi:Xs45:PFOKE 2040, 1921D:60T0 18 
16 IF X>239 THEN Del: X-259:FOKE 2040,192*D:60TO0 18 


17 X-X#(D—-1)X3 

18 POKE V,X 

19 IF PEEK(V*Z1)-1 THEN 100 

20 IF RND(1)<. ZANDTSOAND SL<175 THEN TsisXisINTRN 
D(1)X50) i 

25 IF PE-12 OR PE-36 THEN FOKE 54273,0 

Z0 IF RND(1)2. 1ANDTSOANDSL<175THEN PRINT TABCINT(R 
ND(1)XZ0)) 5“ (BLK)I (OFF) AAAAAAA(BLE) |" 

Zi IF RND(1)<. 1ANDTSOANDSL*175THEN PRINT TABCINT(R 
ND(1)X50)) 5" (BLU) sebe" GOTO 10 

40 IF TsO THEN FRINT:GOTO 10 

SO IF Tsi THEN PRINTTAB(X1) ş “ (RGHT) GRGHT) CORN) 

— T2:G0T0 10 

60 IF Ts2 THEN FRINTTAB(X1) “ (RGHT) (GRN) —. 1": TsE:60TO 10 
70 IF Ts3 THEN FRINT TAB(X1) “ (RGHT) (GRN) —."“: Ts4:60TO 10 
BO IF T-4 THEN FRINT TAB(X1)“(REHT) 1“:Ts0:60T0 10 

100 IF SL3197 THEN 500 

101 IF PEEK:11041(X—20)/8)-1 OR PEEK(14051(X-20) /8 

)z1 THEN GOTO 20 

107 IF PEEK(11061(X—20)/8)-1 THEN GOTO20 
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lÖZ IFPEEK(1144*(X—20) /B) <L10RPEEK (11454 (X-20) /8)-1 

THEN GÜOTO 200 

104 IF FEEE(11461t(X—-20)/8)-1 THEN GOTO 200 

Öğ İF PFEEKE(10641(X—20) /8)-1 OR FEEKH(1065t(X-20)/8 

)si TMEN GOTO 20 

106 İF PEEK (10861 (X—20) /8)21 THEN GOTO 20 

107 İF PEEE(C10244$(X-20) /B)jsl OR FEEKH(107514(X-20) /8 

)sl THEN GOTD 20 

108 TF FEEE (10261 (X-20) /8):1 THEN GOTO 200 

110 FÜKE 54296,15 

118 PÜÖKE 2OdO0, 1964F0OR 1-60 TO 17Ö0:P0KE S54273,175-1 

GPOKE Vri,IsNEXT 

116 POKE S4aya,I 

120 FOKE 20d40,195 

180 FOR Isi TÜ 7ÖÖSNEXTEFÜKE 54275,0 

140 PFÖKE V,ŞÖZPFOKE Vtl,ÖSFOKE SE2BO,OSFOKE S2281,0: 

FOKE Vezld,d0 

150 PRINT"(CULR) (GREN) SANSSIZLIK CARFTINIZ! 

160 PRINT" (DOHN) (DOWN) <DOWN) (DOWNN) (CYN) EURSUN Z"INT 

(SL/2)ş "KADARINI 

170 PRINT"TAMAMLADINIZ/SEORUNUZ"INT (857/4) "FUANDIR" 

180 GOTD 550 

200 Se«5XA:PFUKE S4Z29A6,lSıPOKES4276,0:POKESA4276,355:F 

ORI MO TO SÖSFOKESAZ7E,İZNEXT 

210 POKE SAl9A6,lSıFOKE 54276,0Ö:P0KE 54276,129:FOKE 
GAL7E,O 

2m0 GOTO 20 

200 PRINT "CDONN) (DOWN) (RGHT) CRGOHT) (RGEHT) CRGHT) (RGHT) 

(RGHT) CRGOHT) CREHT) (RGHT) (RGHT) (FUR) (UF) (LEFT) —C(UE) 

(EFT) ———. (FUR) “CDONN) (LEFT) T(DOWN) (LEFT) ©" 

#10 RETURN 

000 PDKE BAM7S,lÖNFOKEZOd4O, İSE FORIZİT0D SEFOR JziT 

020 STEP 1SFOR Zsi TO 2ö NEXT 

gl0 PFOKEVYİ, SÖtLJENEXTJ: FORJ-2OTO1STEFP-1iSFORZ-<İTO2O 

GNEXTEFODKEVFİ, SOtJNEXTİ,İ 

gl3 FOR Isi TO J40STEPSSPOKE ŞAP7E,İSNEXTEFOKESA27 

EO 

520 FOKEV, Os POKEV$İ, Öz POKESE280, 0s POKESZ281,Ö0:FOKE 
Vel, 0 

520 PRINT"(CCLR) (NHT) KURSU TAMAMLADINIZ!" 

340 PRİNT" (KDOMN) (DOMN) (PUR) SEORUNUZ (CYN) "şSş" (FUR) 

FUANDIR" 

530 PRINT"CDOMN) (DOWN) (YEL) BIR OYUN DAHA (E/H)" 

060 GETAS: IFA$—"E"THEN RUN 

170 IF ASSE"H"TMEN 3560 
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575 FRINT" (DOWN) (DOWN) (GRN) GULE GULE 

580 END 

1000 FOR Isi TO 240:P0OKE ŞA27JE,İSNEXTEFOKE 54275,0 
:sPFOKE 535280,Ö:FOKE 52281,Ö i 

1010 PFOKE V,ÖzPOKE Vti,O:POKE V*$Z24, 2ÖZPRİINT"(CCLR) 
(GRN)HA HA" 

1020 PRINT" (DOWN) (CYN) HEDEFİ KACIRDINIZ 

1050 PRINT" (DOWN) (NHT) EOTU SANS" 

1040 PRINT" (DOWN) (FUR) SEDRUNUZ "şINT(S5/4);" FUANLAR" 
1050 60TO 5SÖ i 

9000 DATAO,S&,O,0O, DE, O,O, 56, ŞO, İOŞOŞO,İL4A,OÇ,OÇ,İN7 
ÜŞİ,İZ/LÖŞİŞİ/LO,O, 18 

9010 DATA 0,OJİĞS, 0,0, b OO, EB, ÖLÜ, 66, DÜ, A, DO, 
Üy DO ÜŞOOş O ÜŞ7EşO 

9020 DATAO,IAA ŞÖÇİ, EA ÖL, O, PV? 

9030 DATA 0,56,0,Ö0, 56, 0,0, 56,0, O, İGŞOŞ,ÜŞİZA, O, O,İB 
7ŞÖŞİ,İÖŞİŞ, İL OLJO,İĞİ 

9040 DATA 0,0,165,0,0, 26,0, 0, 680,0, bö ÜŞ,ÜŞ AZ, ÖLÜ, 
38,ÖŞÜŞ DÜŞÜŞÜ, EL OJ0,64,128 

9050 DATA 0,128,64,İ,ÖLÜŞ, LL Ö,O, PV? 

9060 DATA 0,56,0,0,56,0,0, 56, 0,0, İEL,OJÜŞJİZA,O,O,İĞ 
7. Öşl, 7 ÖŞİ,T7ŞOŞO,İBE 

9070 DATA 0,0,165,0,0, ÖÇ Ü,Ü, BŞ ÖÇ, EÖLÜ,JÜŞ, İZL Ü, UÜ, 
28, O,0, BŞ ÖŞJÜŞ, EE O, O,İO,İZE 

9080 DATA 0,8,64,0,4, 52, Öç, üç lb, 7? 

9100 DATA O0,OÇĞOLĞOL, OOO, OO OO, OL ÜL O, ÜÖLÜLÜŞ,ÜŞÜ, 
OOO, OOO OOO, OŞ,OŞ,Ü 

9110 DATA 0,0,0,16,0,8,8, 0, 16,4, 0, EŞ EŞ O, GİŞİ,ÖŞİZ 
8, ÖŞİZYLO, 2, 66,64 

9120 DATA ÖÇO,ÜŞÜ, 200, O, P9 

9160 DATA 2,Ö0,0,İ,O,OÇ,O,İZB,&4 

9170 DATA 0,64, 128,0, 53,0,0, DOŞJOŞÜ, BŞ OÇJOŞAZLOŞ,O,O 
6, 0,0, E68,O,Ü, 26, O,O,İ6İ,O 

9180 DATA 0,185,0,1,57,Ö,İ, 57, Ö,ÖŞİB7JÖÇ,O,İZA,O,O, 
16,OŞ O, GÖÇÜ, Ü, DE, O,Ü, DÖÇ,Ü 

10000 DATA 255,255, 233, 293, Bİ9İ, 2Dİ, DİŞE 

10010 DATA 0,0,0, 59,255, 251,0,0, 128,192, 224, 24Ö,iZz 
8,128, 128,128, 3, öy iy Da iş iş İyl 

10020 DATA 192,192,192,192,192, 192, 192,192 

10030 DATA 0,0,24,24,60,126, 126, 209, 5, 5, 7, 5, İ,O3 
,63,127,192,192, 224, 240, 240 

10040 DATA 248,252, 252,60,60,60,60,60,60,60,60 


READY. 
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KAYAK OYUNUZ YAZILIM KONTROLU 


SATIR SAYISI-DEGERI 


ğ 149 
4 194 
11 149 
16 186 
eğ 247 
4g 68 
80 54 
193 175 
107 125 
116 41 
159 214 
e0ğ 19 
310 116 
520 ge 
560 248 
1000 v7? 
1040 : 4147 
9029 119 
9069 188 


1 
* 5 
12 


kolik eğik olik Sik Sik Sik Sik Sik Sk ük Sk ek Ek SR e SE A VE VE | 
n 
İ emel 
o 


I oystick ile çizim | 


Ekrana birşeyler çizdirebilmek bilgisayarların en faydalı özelliklerinden 
birisi olmaktadır. Bu programda joystick kullanarak ekrana renkli olarak 
istediğiniz şekli çizmeniz mümkün olacaktır. Program RUN edilince ekrana 
renk (F), çizim (Z), sıçramalar (S), silme (R) ve çizimin sonu (B) için bir 
tablo çıkmaktadır. Programı başlatmak için bir ara tuşuna bastıktan sonra, 
bilgisayar bit modunda çalıştığı için bir müddet beklemek gerekiyor. Ek- 
randa ok görüldüğünde Z tuşuna basarak çizim başlatılabilir. Ekranın rengi 
F tuşuyla tekrar düzenlenebilmektedir. Bilgisayar ekranı üç ana bölüme ayı- 
rarak renklendiriyor, kalem ve kağıt renkleri ayrı ayrı seçiliyor. İstenmeyen 
bölümlerin silinmesi için S tuşuna bastıktan sonra yine Joystick kullanmak 
gerekmektedir. 
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* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
y 
* 
* 
* 


Leğlik ik ik ik. Sik ik. Sik Sik Sik Sk Sik ik ik SA Sk SE SE SE WE OR 


588 
19030 
9018 
9050 
9100 
9170 
190020 


1 REMKXKJOYSTICK ILE CIZIMAXX 
5 PRINT"(CLR) " sPOKES3280, O:PRINT:PRINT:PRINT 
7 PRINT. " (RVS) (GRN) R (RED) (LRED)E(RED) (LRED) N 
(YEL) K (LBLU) L (ORNG) I (OFF) (LBLU) “3 PRİNT 

8 PRINT" o (RVS) (ELK) (LBLU) (OFF) JOYSTİCK (RVS) 
(RED) (OFF) (LBLU) ILE (RVS) (YEL ) (OFF) (LBLU) CIZM 
Ek. MAM": PRİNT 

10 FRINT" YENI RENKLER ICIN 


: CF )"3PRİINT 
20 PRINT" CIZME ISLEMİ ICIN CZ )":GPRINT 
350 PRINT" EKRANI KAFAMAK ICIN : CL 9)":PR 
INT 
â4Ö PRINT"  SICRAMALAR ICIN : C S8 İ)":PRINT 


90 PFRINT" RESMIN SILGISI : CR ) "SPRİNT 

60 FRINT" BITIRMEK ICIN CB 0)":PRINT 

70 PRINT" START ICIN : (RVS) >> GENIS TUS << (OFF) BASIN 
“PRİNT 

110 FOR 1I-1024 TO 1065:POKET,224:NEXTİ 

i2O FOR 11:1984 TO 2Ö0235:FOKEI,224:NEXTI 

130 FOR 1z1064 TO 1944 STEF40 :PFOKEI,Z2Z4:NEXTİ 

140 FOR 111035 TO 1983 STEP 40:PFOKELI,224:NEXTİ 

150 FİSSINT(CRND (1)X15 ) 

160 iyi -505296 TO SS5235:FOKELI ,F15 


165 SINTCRND (1)X15 ):NEXT 
170 FOR12-36254 TO S629SEPOKET2,F15 
175 SINT(CRND (1)X15 ):NEXT 


180 e 55336 TO 56216 ŞTEP 40 :FOKEIZ,FIS 
185 FIŞSINTSRND (1)X15 ): NEXT 
190 e TO 56255 STEP 40 &FOKETA4,Fİ15 
195 15 INT (RND- (1)X15 ):NEXT 
590 GE! Aş: IFASS"ENENSSO 
1000 PRINT"(CLR) " :sPÖKES3280,6 
1110 VIs55248: 7S-VI124:BM2V1*17:BA-8192 
İ©lZO FOKE BM,PEEE(BM)ORS2: POKEVI422, PEEK(VI*t22) AND 
238 
ilsO FOKEZS, PEEK (ZS) OR8 
1140 FÜFEE650,128 
1200 GOSUR 9000 
4000 SYS 49152 
4010 INE-O 
4030 FOR As10Ö0Z24 TO 2025:F-(INKX16)49 
4070 , A,FSGNEXTA 
4100 : Ys20 , 
4105 O iu ii FOKE Vi*zi,i 
41l0 JSPEEK (56520) 
4120 SWs1 
4150 IF (J AND 16) -Ö THEN SWs1Ö 
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4140 IF (J AND 1) sö THEN YeY-SW 

4150 IF (J AND 2) O THEN YEY#S5W 

4160 IF (J AND 4) -ö THEN XsX-SW 

4170 IF (J AND 8) sö THEN X—X415W 

4180 IF Y#199 THEN YEe199 

4190 IF Yz ? THEN Yz? 

4200 IF X#317 THEN X-317 

4210 IF X< 1 THEN Xi 

4300 GETA$: IFAS-"L "THENGOSUR 7000:601T04100 
4320 IFAS-"E"THENGOTO 5000 

4250 IFAS-"R"THENGOTO10000 

42540 IFA$-"Z"THEN GOTO 4600 

4350 IF A$—"R"THEN&6S00 

4400 GÖSUBSS00 

4500 G60T0 4105 

4600 FOFE VI#Z21,0:FÜKHE630,128 

4610 JsPEEKF (56220) 

4620 SWz1 

4650 TF (J AND 16) sö THEN S 
4640 IF (J AND 1) sö THEN Ye 
4650 IF (J AND 2) s0 THEN YEYtSW 

4660 IF (J AND 4) -ö THEN X—X—SW 

4670 IF (J AND 8) sö THEN XEXtSW 

4680 IF Y#199 THEN Ye199 

4690 TE Yi 2 THEN Ye? 

4700 IF X#3519 THEN X31i9 

4705 GETA$:IFAS-"L"THENGOSUR 70600:G60T04100 
4710 IF X< 1 THEN Xl 

4720 IFA$-"E"THENGOSUB 3000 

47230 TFAS-"R"THENGOTO10000 

4740 TIFA$-"S"THEN GOTO 4105 

4750 TFASZ-"R"THEN&6300 

4780 GOSUBA4900 

4790 GÜTO 4600 

4900 REM X VE Y KOORDINATLARI 

4910 CHZINT(X/8) 

4920 ROZINT(Y/8) 

4930 UN YANDZ7 

4940 BYSBAYROXKZ20-OXCHELN 

4950 BI—-7—(XAND7) 

4960 FOKEBY,PFEEK(BY)OR(2TRBI) 

4970 RETURN 

5000 FOKE BM, FEEK (BM) ANDI:Z23 

5010 PFOKFE ZS,21:5FOKEVI4*Zİ,O 

5020 PRINT"(CLR) "s PFOFEZSE280.9:FOFHE&S0,0 
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5050 FRINT:PRINT,"(RVS) (GRN) R (RED) (LRED)EKRED) 
(LRED) N (YEL) KE (LBLU) Lo K(ORNG) I (OFE)(LELU)":P 
RINT 


5040 PRINT" (RVS) (ELE) (LBLU) (OFF) O O (RVS) (WHT) 
(LBLU) (OFF) 1 (RWVS) (RED) (LBLU) (DEF) 

2? MEM > 

5070 FRINT" (RVS) (FUR) (LBLU) (OFE) > 4 (RVS) (GRN) 
(LBLU) (OFF) 5 MAVI (LBLU) (OFF) & MENEM 7 ©" 

5080 FRINT" (RVS) (ORNG) (LBLU) (OFF) 8 (RVS) (ERN) 
(LBLU) (DEF) z 9 O (RVS) (LRED) (LBLU) (OFF) < 

iO MAMAMAM-İ 

5090 FRINT" (RVS) (GRY2) (LBLU) (OFF) s12  (RVS) 
(LGRN) (LBLU) (OFF) s1Z O (RVS)(LBLU) (OFF) <1 

4  WAMM-15 i 
5100 INPUT " UST ZEMIN RENGİ : “EHİSPRINT 
5110 INPUT " UST KALEM RENGİ : “eTASERIN 

T 

5120 INFUT " ORTA ZEMIN RENGİ : “EHE PRINT 
5130 INPUT " ORTA KALEM RENGİ : “sTPSPRINT 
5140 INFUT " ALT ZEMIN RENGİ : "SHESEPRINT 
5150 INPUT " ALT KALEM RENGİ : “ST3SPRINT 
5180 INFUT "(RVS) CERCEVE RENGİ : (OFF) “ER 


m ağ PRINT"(CLR) " SPOKFESS28O,R 
P1O VIS53248:27S5-V1424:BM-V1117:BAZ8192 
5220 FOEE BM, FEEK (BM) ORS2:POKEVİtZ2,PFEEKE(VItZ2) AND 


in Sa 
a 


İiers0 PFOKEZS, FEEK.(ZS)0R8 

İ27/0 Fis(T1X16)*H1 

9280 FOR Az1024 TO 1265:POKEA,Fİ:NEXTA 
de9Y0 FAS(T2K16) *H2 

Je0Ö0 FOR Bs1264 TO 1785:POKEB,FZ:NEXTB 
gslO FSS(TEX16)tH3 

İind0 FOR C-1784 TO 2025:POKEC,F3:NEXTC 
5400 POKE650,128 

5300 GOTD 4105 

İ?00 NES (X4-245255) 

59910 FOFE rl 

99Ya0 FÜKE VİItİĞ,NEK-İ 

99SU PFDKEE Vİtİ,Y*rZI 

5940 RETURN 

5930 NES(X4-24 5255) 
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5960 
5970 
5980 
5990 
6000 
6010 
258 

6020 
60ZO0 
6200 
6500 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6900 
6910 
6920 
69:30 
6940 
6950 
6960 
6970 
7000 
7010 
8000 
8040 
8030 
8070 
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PFOKE VI, Xt24*NEX256 

POKE VI*tl6, NEX— i 

POKE VIti,Yt32 

RETURN 

VI-53248: 27S5-VI*24:5BMSVI*17 


POKE RM, PEEK (BM) ORS2: POKEVIY2A,PEEK(VItZ 


FOKEZS, PEEK.(ZS) OR8B 

FOR As1024T0202X:POKEA, 9ENEXT 
RETURN i 
REM RADTIEREN 

POKE2040, 14:POKE ViI*zi,i 
JzPEEK (363520) 

SWs1 


IF (J AND 16) -Ö THEN SWsiO 
IF ( AND 1) -Öö THEN YeY-SW 
IF (J AND 2) sö THEN YsYtSW 
IF (J AND 4) sö THEN X-X-SW 
IF (J AND 8) s0 THEN Xs5X*SW 
IF Y#199 THEN Ys199 

IF Ye 2 THEN Yzz 

IF X#3517 THEN X-5317 


IF X< 1 THEN Xsi 

GETA$: IFA$—"L"THENGOSUB 7000:60T04100 
IFA$-"F"THENGOTO 50600 
IFAS-"R"THENGOTO10000 
IFA$-"Z"THEN G0OTO 4600 
IFA$-"S"THEN GOTO 4105 
GOSUB59350 

GÜSUR&4900 

G0OTO0 6500 

REM X VE Y KOORDINATLARI 
CHSINT(X/8) 

ROZINT(Y/8) 

LNSYAND7 
BY-#BAYROKS204*8XCH$LN 
B1-7-(XAND7) 

FOKEBY,O 

RETURN 

SYS 49152 

RETURN 

INESİNKE Fİ 

IF INE> 5 THENİNESÖ 

FOR A-1024 TO 2025:4F<(INEX16)*9 
POKE A,F:NEXTA 


Z)AND 


8100 RETURN 

9000 REM SFRAYTLAR 

90035 VISSE24BıX-700: YE5 

9020 POKE Vİ, X*Z2d4:FOKEVİYİ, Yt29:REM FOZISYONLAR 
9030 POKE VItZ9,1i4:POKEVIt28,1:FOKEVItZ7, Öz POKEVI* 


38,14 


9050 POKE 2040,13 

9060 POKE VIt2i,1 

9400 FOR 1-832 OTO 894 

9410 READ SD:PFOKE 1I,SD :NEXTİ 

7500 DATA O, O, Ö, O, Öç, O 
9510 DATA O Ür İÖ ÜÖş'ö 
9520 DATA O, 2,128, O, 6, O 
9530 DATA O, 14, O, 0, 28, Ö 
9540 DATA 32, 56, O, 32,112, O 
9550 DATA 96,224, O, 97,192, O 
9560 DATA 99,128, O,lO3, O, O 
9570 DATA 110, O, 0,108, O, O 
9580 DATA 106,160, 0,106,160, O 
9590 DATA 85, 64, O, 85, 64, O 
9600 DATA O, 0,0 

9700 FOR 1-894 TO 9AZ:PFOKET,OÖSNEXTİ 
9710 FOR 1-944 TO 958:READ SZ2:FOKEL,SZ2:NEXT:PFOKEZ2O 


40,14 


9720 DATA O, O, 0,168, O, O 
9730 DATA 84, O, O, 84, O, O 
9740 DATA O, O, Ö 

9900 GO0T011000 


10000 
10010 
10020 
11000 
11010 
11020 
11030 
11040 
11030 
11060 
15000 
TU - 


READY. 


FOKE BM, FEEK (BM) AND223 
PFOKE ZS,21:P0KEV1421,0 

FRINT" (CLR) “: POKE650, Os FOKESZE280,0 SEND 

REM MAKINA LISANI 

FOR 149152 TO 49178:READD:POKELI,D:NEXTİ 
RETURN 

DATA 160, O,152, 34,169, 32,133 

DATA 35,169, 0,145, 34,200,208 

DATA 249,230, 55,169, 64,197,35 

DATA 208,241, 96, O, O, Ö 

FOR Uz896 TO 958 :PRINTU, :PRINTFEEK(U) ,£ NEX 
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JOISTIK ILE CIZIM: YAZILIM KONTROLU 


SATIR SAYISI-DEGERİ 


215 


EE OE EE SE OE SE NE OE OE OE SE OE SR GE SE SE AE SA SE VE SA SE SE Sk A Sk ik ik ik kk kk kk kk kk kk kei 


5 
eğ 
6d 
150 
165 
185 
190808 
1149 
4058 
4110 
4150 
4190 
4320 
4400 
4620 
46609 
700 
4730 
4798 
49339 
49370 
5050 
5098 
5130 
5c0ğ 
5e70 
5310 
5900 
5948 
5480 
6020 
6520 
6560 
6600 
6640 
6680 
6908 
6949 
7000 
8050 
90095 
9060 
9510 


i81 
61 
69 
25 
48 
50 
eğe 


0 AE OE OE O OE VE SE YE OE VE OE OE OR OR OR OE OR VR OR OE OR ER SR OR ER OR ER O ER RR İk ks kni 


57 
165 


b RR SE VE OE OE OE OE OE VE OE VR OR ER OE OE OR OR VR GE OR O EE GR ER ER OR ER ER RR ER 


9540 241 


3530 136 
9718 153 
93900 253 
11900 rl 
11040 125 
RERDY. 

Pişti 


i PRINT"(CLR) C(BLE)" 


klik ellik ik Sik Sk 2 


3550 
9590 
gre 
18090 
110109 
11059 


4560 
9680 
3r3 
10010 
11920 
i19060 


0 
-J 
kolik ilik ili Sik lk. 


Lallik sök sik sök alk a) 


9570 182 
9r08 dâr 
rdg eld 
19020 143 
11050 1i9 
13000 49 


Bu oyunda bilgisayar ile karşılıklı pişti oynamaktasınız. Kartlarınız 
1-2-3-4 olarak sıralanmıştır Hangi kartı atmak istiyorsanız o numaralı tuşa 
basınız. Oyun201'e kadar devam etmektedir. Sayılarınız bilgisayarın ki ile 
aynı olarak biterse oyun, 251'e uzar. Herkese bol şanslar. 


7: FOKESSE280,7 


win piti 


7 
8 


PRINT" (RED) 


PRINT" 
PRINT" 
PRINT" 
FRINT" 


PRINT" 
PRİNT" 


9 FRINT“" 


10 
ii 
iz 
15 
14 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRİNT" 


(UP) 


İS AZ$-"(GRN) 
AMAF 


F 

| RVS)| 
LI CRVS)İ 
| CRVS)J 


GPRINTEPRİNTEPRİNTEFOKESZ281, 


(BLU) (RVS) 


P 


DR.IZZET SERDAR TETİK 
ICIN RETURN”E BAS " 


I 


9 Vel 


(OFF)! 


(OFF) | 


“(UP) 


EYLUL 1986 BASL. 
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16 ZO$-MID$(OZ$, 2, 62) *LEFT$(OZ$, 1) :0Z$-Z0$:PRINT" (UP) 
“letft$(zg$, 18) 

17 FORİZ-ITOZO:GETAS: IFAŞSCHR$ (15) THENZİ 

18 NEXT 

19 GO0T016 

21 LsösisisiBslsSBsÖOGHY£1iSİ 

da DIMA$S(C152) ng e e a a 
),ACİS2),D(152) ,H(152) 

25 id POKES3281,6:PRINT" (CLR) * 


24 PRINT" (DOWN) (DOKN) (DOWN) (DOWN) (WHT) OYUN 
HAKKINDA BILGI (RVS) (CYN) FE 03" 

25 PFRINT"(DOWN) (DOWN) (DOWN) (DOWN) (NHT) OYUNA 
BASLAMAK ICIN (RVS) (YEL) F ie © 


26 GETPL$STEPL Se »CHR$ (134) ANDPL Se #CHRS$(C1Z5) THEN26 
27 TFPL$-<CHR$ (134) THENGOSUR&639$0: GOT0OZ29 

28 IFPL$SCHR$(123) THENZE9 

29 PFRINT"(CCLR) "SPRİNT" CCYN)LUTFEN ADINIZI GIRİIN:" 
30 GETMRS$:E INPUT MR$ 

31 FRINT"(DOMN) "G INFUT"SAAT: "ŞTI$ 

32 FRINT"(CCLR) (DON) (DOWN) (DOWN) (DON) (DOWN) (DOYN) 


(DOWN) (YEL) LUTFEN BEKLEYINIZ" 
33 FRINT" (DOWN) (DON) (DOWN) EARTLARI 
KARISTIRIYORUM" 


54 FRINT"(CRED)" 

35 FOREZ1T0OS2: READA$(CE) ,C(E):NEXTE 

56 pa le la yim NEXTTY 

37 FORT-1ITOS2 

40 PRINT" (HOME) (YEL) "ŞMID$(TI$,İ,2)ş5":"ŞMID$CTI$, 
3,2)5":“ŞMID$(TI$,5, 2) 

41 X(T)ZINT(RND(VAL(CTI$))XS2) $#iZIFH(X(T)) sÖTHENAİ1 
42 IFMID$(A$(X(4)),5,1)"J"THENAâİ 

43 H(X(T)) s0 

60 NEXTT 

61 PRINT"(BLK)" 

62 FUMsO:FIMZz0: SUM-O0:SIMsÖ:FVSO0 

63 L-Oslzi:B-1:SBs0:KZ-0 

65 FORT-1TOS2 

66 DELEGE şe GM e e ley eyle 
"THENZ(X(T)) 

67 Mine ak o imi lll ia 2'i 
"THENZ (X(T))0 

68 TFMID$ KAS OKT) IŞ 2, 1) Se THENA OK (T) 1283 
69 IFMID$(AS(X(T)),2,1)"A#"THENA(X CT) ) 65 
70 IFMID$S(A$(X(T)),2,1):"e"THENG(X (CT) ) 90 
71 IFMID$(ASI(X(T)),Z2,1)2"#"THENGCX CT) ) 88 
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72 NEXTT 

75 FORISITD04:D$(I)-AS(CXCI)):NEXTİ 

759 PRINTLHR$ (147) 

80 FOKESS280,1Z:FOKESE281,17 

81 FOREZSİ119T01125:POKEE, 102: FOKEEtrSAD72,5ENEXT 
90 FOÖRESİ119T014585TEF40:FOKEE, ÖZ: POKEEt5A4A272,54F 
OKEEt&6, 1Ö02:FOKEEt&6tHS4272, 6 NEXT 

100 FÖRE-1429T01445: POKEE, 102: POKEE1S54272, 5:5 NEXT 
110 FORE-1587T01593:FOKEE, 10Z:PFOKEEtKS54272,5:NEXT 
120 FORE-1587TO1907STEPAâ0:POKEE, 102: PFOKEE*t54272,55 
FOHEEt6, OZEN POKHEE tb rİAAZA, NEXT 

180 FORESİ9O07TO1915:5 POFEE,İOD:FDEEEtS4272, 54 NEXT 
140 FOREZ1596T016025FOKEE, 10Z2:FOKEErSA4A2YE, NEXT 
141 FOREZ1596T01916STEF4O0:FOREE, 102: FOKEEt34272,Bı 
PORHEEt&, ÖZE POKHEEt6tİ4272, NEXT 

142 FOREZİ916T01922: FOKEE,İO2:PFOKEE 34272, 54 NEXT 
145 FORESİ6ÖŞTOLG6İ1:FOKEE, OZ POKHEE SADE, NEXT 
144 FORE-16ÖSTO19258TEP4ÖSFOFEE, OZ FOKEE SAN, Ga 
PFOFHEEt6, OZ: FOHEEt6trS4272, 51 NEXT 

145 FORE-1925T01931: PÜKEE, 102: POKEE4SA272, 5: NEXT 
146 FORES1614T016Z2Ö:PFOKEE,İOZEPORHEEHD4272, 56 NEXT 
147 FORE-1614T019349TEF4Ö0: PFOKEE,İÖZ:FORKEE 54272, 05 
POKEE 6, 102 PFOKHEEt6OGAP72, SN NEXT 

148 FÜORES1934T01940:FOKEE, 102: POKEE GAS, NEXT 
150 Ts49 

160 FOREZ1950T01977S5TEF9:FOREEE, TE POHEEKS42752, 24 TT 
*İiZNEXT 

165 FORIZIT04 

170 POFEL1ZBA,C(X(1I)):POKE12821454272,Z7(X(1)):5POKEİLİ 
64,G(XCI)):POKE1164154272,27Z(X(1)) 

180 PFOKE1400,0(XCI)):5POKE1400154272,Z(X(1)) 

190 FORUZİ1TO8SOOZNEXTUSLEL$İNNEXTİ SL el elsFVsÖ 

195 W-17S5Ö05F-1652: V-1868:H27-1: READL:FORGELTOL KE 
196 PFOKEW,C(X(G)) GPOKEWYSASZA,Z(X(G)):FOFEF,M(X(G) 
)SPOFEFKSAA7A,Z(X(G)):FOFEV,G(CX(C6)) 

197 POKEV$HSADJA,Z(X(G))EFSFE9iVEVt9 MN *9 

198 NEXTG:L-6:60T020001 

199 FORYUSITO1SÖÖ:NEXTEPRINT" (HOME) " 

200 PRINT" x 

201 PRİNT" ” 

206 PRINT" (HOME) "SG RETURN 

207 GOTO20001 

8000 FORTXEL ETOL —ESTEP—2SIFD$(TX) SA$(X(6)) THENASI 
00 

8100 NEXTTX:DS$(I)-A$(X(0)):60T042001 
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9000 IFIH5ZTHENGOSUB4Z888: GO0TD043000 

9100 RETURN j 

9800 İFPEEK (1282) #32THENZ-İ : RETURN 

9900 Z52:RETURN 

10000 IFMIDS(D$ (1-3) ,3,1)5“J“ORMID$(D$(1-3),5,1)2M 
ID$(D$(1-4),Z,1) THENPRIİNT" (HOME) SEN ALDIN": RETURN 
10001 PRINT" (HOME) (RVS) (RED) #KFISTLXK (OFF) “sz FUMSEUM* 
10: RETURN 

20001 AŞ"; GETASIIFA$S""THEN20001 

20005 IFA$I"İ"ORAS»"A"THENFOKES3280, 1Z:FORTOS1T010 
ÖSNEXTE POKESZ281, 13: 60TO020001 

20010 IFA$-"1“THENSAZ1750:SB-16521D$ (1) -A$(X(L-4)) 


EE 0200 . 

»BArp mİ ARZU THENSA—17591:SB-1641:5D$(T) ASX (LZ) ) 
:00T020045 i 

AOORO0 TFASE"E"THENSA 1768: SB-<16S0: DSİ) ZACK (LR) ) 
ıG0TO20045 

20040 İFASE"A"THENSAZ1777:SBs5165946D$(I)SA$CX(L-1)) 


20045 Ye iel ee eN G0OT0O20047 

20046 7 

20047 IFPEEK (SA) <EPTHENFOKESZ280, İ2GFORTUÜE1T0100:N 
EXTEPOKHESE2Bİ, lü: GÖOTOZ20001 

AOOZO PFOKE1PBE,PEEE (SA) GPOKEL1 SBA EAA, PEEE (BArSAZ 
7) 

a006Ö FOEEİİ1bA,PEEE (SR) :PFOKELLb41v54272, PEEK (SEr342 
7) 

20070 FÜEE14OÖO, PEEE (SB): PFDKE14001-54272, PEEK (BB1547 
7) 

20071 FÜKESA, ES FOKESBR, ZasPFOKESAr118, 22 

20DOBÜO TEMİDS(D$(CİI) EŞİ) EMID$S(DS(CI—1), 5, 1) ANDZ-Z2THE 
NGOSUBZEODOO GEN 

20085 IFMID$S(D$(I) EŞ İİE"İ"ANDZ-ATHENGOSUBZOOOZ 
22000 PRİNT" (HOME) “e GOSUB199:G60T040000 
20000 FORKİ-1TOZ20O:NEXTET 

20001 IFMIDS$S(DS$(I—2), 5, 1)>"J"THENGOSUR10000:G60T0OZ0 
004 

50002 IFMID$S(D$(I—2), 5,1) MID$(CD$(I—2),5, 1) THENERI 
NT" HOME) (RVS) (RED) XXFIİSTTIXX (OFF) "sg EUM«EUME1O0: G0OTO0S0004 
320002 PRİNT" (HOME) SEN ALDIN" 

20004 ZXs14FOROW—BTOT:SFVEFVrİ 

30005 CIS$(CFV) DEC) 

20006 NEXTOW: BT*#1 

30011 PORELEBE, zi POKEL164, SEsPOKE1400, 52: 7» 1:G0SU 
E199 
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50900 RETURN 

40000 GOSUR9800 
40050 IslitlsFORGZLTOL EZ 

40100 IF(MIDSCAS(X(G)), 5,1) 5MID$(D$(1—1),5, 1) ANDZ> 
2) THENBOO0O . 

40200 NEXTG:GO0TO045100 
42001 POKE1282,C0(X(G6)):5FOKE1282454277,Z(X(G)):PFOKE 
1164,0(X(G)):POKE1164154272,27(X(G)) 

42002 POKE1400,0(X(6)):5FOREEİ14001-54272,Z(X(G)) 
42010 G0T050000 

»1OÖ0 DS#İNTCRND(1) 4). 

435150 İF (CEZS #AANDEZ< 5) ANDMID$S(CAS(X(DI) EŞ E)S"J"AN 
DZ&« #ZTHEN425100 

45200 FÖRDPELHİTOL-ESTEP—ASIFAS(X(D))<D$CDF) THENAZ 
100 

453500 NEXTDP 

43400 POKE1282,C(X(D)):3POKE1282454772,Z(X(D)):PFOKE 
1164, A(X(D)):POKE11641454272,27Z(X(D)) 

435500 PFOFHE1L400,U(X(D))EFOKE1400-54272,Z(X(D)) 
45700 D$(I)sA$(CX(D)) 

45720 TFMID$S(D$(CI), Çİ) E"J"ANDZSTHENSO00Z 

42750 IFMIDS(DS$(I), 35,1) MİDS(D$CI—1), Eş, 1) ANDZ-ZTHE 
NG0000 

45760 PRİNT" ":GOSUR199 

425800 GOTOSZODO 
gÖÖODÖ FORKEİZİTOZOONEXTKEİ 

30001 İFMID$S(D$(I—2),5,1)"J"THENGOSUBSS5O0O0:GOTOSO 
004 ; 
50002 IFMID$(D$(I—2), 5,1) MID$(D$(1—3),23,1) THENERİ 
NT"(RVS)XP i 5 T IKCOFF)"SEIM-FIM$-10: G0TO50004 
30003 FEİNT" (RVS) (BRN) BEN ALDIM (OFF)" 

00004 ZXs2ıBsltl 

J0Öİİ POKE12B2, S2:PFOKE1164, 352:FOKE1400, 32 

32000 EZSEZ$tİZİEFKZ-STHENL-G:İzItl:SB-S5B$1:G0SURB900 
Ö:BbÜTO195 

02000 IsitisGOTOZ2VODI 


53001 PRINT" (HOME) (RVS) (RED)XX FI S TI XX(OFEP)":FIM 
#FIMH1ÖS:RETURN 

ö6000 REM DATALAR 

40000 DATA" (BLE)#2",50,"(BLEJ)A#S"“,S1i,"(BLE) Mâ", g2, 
(BLK)40",55,"“(BLK)AM6 “,54, "A7", S5, AB" 56, AŞ" 

60001 DATAS?7,"(BLE)4#0",15, “"(BLE)$J",10, "C(BLEJAD" ÇİZ, 
"(BLE)ARK "Şii, "'STOPATNA",I 


60002 DATA" (BLK)#2",SO,"(BLK)#Z",S1,"(BLK)#A",S2," 
(BLUE) Rh" Da u (BLE) #6'",54, "7 İİ, gg Dö üğgn 

40003 DATASI. "(ELE)$O",İS, "(ELKİ$J",10,“ (ELE) AM", 17, 
"(BLE) PE", İl," GTOFRESTOREA",İ 

60004 DATA" (RED) #2",50, "(RED)*Z",S1, “(RED)#4",52, " (RED) 
#5", (RED)#Ö «ŞA, 7S, "4G, 56, 

60005 DATASI," (RED) $O",15, “ (RED) #J", 10," (RED) #0", 17, 
"KRED)#E",11," READA".İ 

60006 DATA" (RED) #2", 50, "(RED)*Z", Sİ," (RED)44",SA, 
“(RED)#B" GE," (RED) #6 SA, ZN, “4G SA, Şi 
60007 DATAS?,"(RED) #0",15, “ (RED) #17", 10," (RED)#0", 17, 
(RED eE",İl," RETURNA",I 

61000 DATAS,İZ,21,29,37,45,0 

62000 REM FUANLARIN TOPLANMASI 

63000 IFFVED6THENSUMSSUM*3 

62001 FORT£1TOFV 

63003 IFMID$(CI$(T),3,1)5"J"THENSUMSSUM*İ 

67004 TFMID$(CIS(T),E,1)5"A"THENSUMSSUM#İ 

63005 İFCİ$(T)" (BLE) #2" THENSUMSSUM*-2 

62006 IEC1$(T) <" (RED) #0" THENSUM£SUM*-3 

63007 NEXTT 

63008 FRINTCHR$ (147) £PFRINT" (YEL) ": POKESZ2BO, 2: FOKESZ28 
İşz * 

63009 FRINT" (DOWN) (DOWN) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) "MRS: " BILGISAYAR" 


65010 PRİNT" mmm mmm mmm 
63011 PRİNT" (DOKN) (DOWN) " 
3017 IFFVEP6THENSIM-13-SUM 
63015 SIM-16-SUM 
63014 VIMSVİM$FIM4SIM: VUMSVUM#FUM*#SUM 


63015 FRINT"(RVS) (OFF) "ŞVUMŞ" (RVS) 
“EVİM 


62016 IFVUM>HYANDVIM>HYTHENHYSHYtSÖ: RESTORE: FOKES 
280,8: FOKESE281,54G0OTOZİ 

62017 IFVUM>HYORVTIM»HAYTHEN&.3900 

63018 RESTORE:FORTP1T01000:NEXTTP: POKES3280,6:POK 
E55281,6:G60TOS2 

65888 TEZX-ITHENİI S2: GOSUBZ20004 

5889 RETURN 

635900 FORVGZİTOSOOSNEXTVGSTFEVUME#VTMTHENSA#-"SŞEN KA 
ZANDIN" 

65901 SAS—"REN KAZANDIM" 

3902 PRINTCHR$(147):5FRINT" (DON) (DOWN) (DOKN) (DDUN) 
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(DOWN) (DOHN) (DOWN) © WEŞsPSEZ 
63904 FRINT“ (DOWN) (DOWN) (DOWN) (NHT) O BASKA BIR OYUN 


ICIN (RVS) (PUR) FS (OFE)" 
63905 PRINT" (DOWN) (DOWN) (DOWN) (WHAT) OYUNU BİTİRMEK 
ICIN (RVS) (YEL) F7 (OFF) 


63910 GETTR$:IFTR$3 #OHR$ (115) ANDTR$< #CHR$ (156) THEN 
63910 

63911 IFTR$<CHR$ (135) THENRESTORE : VUM-0: VIMs0:60TO2 

9 

63917 IFTR$-CHR$ (136) THENFRINTCHR$ (147) :END 

63917 IFVUM>HYORVIM>HYTHEN&3900 

63940 REM OYUN HAKKINDA BILGI 

65950 PRINT"(CLR) ": PRİNT" BU OYUNDA BILGISAY 
AR  ILE":FRINT 

65951 FRINT"KARSILIKLI FISTI OYNAMAKTASINIZ. "SER 

INT 

63952 FRINT"KARTLARINIZ 1-2-3-4 OLARAK SIRALANMIS 
63953 PRINT"TIR.HANGI KARTI ATMAK ISTIYORSANIZ 0": 
PRINT 

63954 FRINT"NUMARALI TUSA BASIN. OYUNA SIZ BASLI—"; 
PRINT 

63955 FRINT"YORSUNUZ. (RVS)DIKKAT: AYNI TUSA 2 DEFA":PR 
INT 

63956 FRINT"ARKA ARKAYA BASMAYINIZ (DEF) “:PRINT 

65957 FRINT" OYUN 201'E KADAR DEVAM ETMEK— 
“SPRİNT 

3958 FRINT"TEDIR.AYNI SAYIDA BITIRIRSEK":EPRINT 

63959 PRINT"OYUN 251'E UZAMAKTADIR. ":PRINT 

63960 FRINT“(RVS) BOL SANSLAR ! (OFF)"GPRINT 
65961 FRINT" (DOWN) (RVS) (CYN) HERHANGI BIR TUSA 
BASIN" 

5962 GETME$: IFWE$-""THEN&63962 

63963 RETURN 


READY. 
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PiSTI- 


i 


YAZILIM 
SATIR SAYISI-DEGER! 


23 
de 
46 
1? 
151 
6 
1309 
147 
g4 
lig 
249 
30 
115 
194 


EE ZE ZE ŞE EE ZEZE a 


» 


e 


63005 
63009 
63013 
63017 


ir 
KUNIKR 


Cc: 


mı 
UL 


EE Sk ik Ek ER ER Ek Sk SR Sk SE Sk SE SR SA SR OE MR & 


Lkeğik Siksdik ik cik Sik Sik Sik. Sik Sik Sik Sk Sik Sk 4k Sk A Sk SE Si Sk Sk ME Sk Sik SE Sk Sk MR SA ME O EE SE SR VE VE VE VE EE EE 


63863 242 « 63300 203 *« 6330İ 96 * 6330£ 164 
63904 119 « 63905 233 « 63910 218 x 6391i1 232 
639312 66 « 63917 3 * 639409 215 « 63358 101 
653951 cd x 63952 .S0 * 63333 2e x» 65954 ©3868 
53955 3r « 63956 5 * 6335r 39 * 63353 43 
63959 48 x 653608 86 »* 63961 105 x 63536£ &3r 
63963 235 

RERUY. 

Petrol Kralı 


Sekiz zorluk derecesi olan bu oyunda petrol platformunuzujoystick'le 2 
numaralı port'dan idare ediyorsunuz. Joystick'in sağa, sola hareketi ile plat- 
formun sondaj yeri tespit ediliyor. Joystick'in ileri geri hareketi ile de son- 
daj yapılıp yataklardaki petrol toprak üstüne bir pompayla çıkarılıyor. 


Arada bir önünüze çıkan kayaları dinamitle patlatarak yolunuzu açıyorsu- 
nuz. Sondaja en derin petrol yatağından başlamak en uygunudur. Petrol 
miktarına bağlı olarak kasadaki dolarlarınız artmaktadır. 


100 PRINT"(CCUR) (LBLU) “gs TEFEEK (1427726) <PANDPEEKE (14805) 
#24THEN 195 

105 POKESE2BO, 6s FOKESE281,6: FOKESEL70,8 

11l0 FRINTTAB(14)“IZAHAT “SPC (28) 
“EPRINT" iloystickı" 

115 PRINT"(DOWN) SAĞ VE SÜOLsERİĞ HARAFETİ" 
120 FRINT" ASAĞIZ DELGİ"SERİNT"YUK. <BORUYU GERT AL 


125 PRINT"(DOWN) (DOWN) BORU ASAGIDA IKEN FIRE DUGMESİ 
CALISIRSA 

150 PRINT"YAG ICINDE FOMFA,KIR ICINDE DINAMIT" 

155 PRINT"FAALIYETE GECİYOR. & 

140 PRİNT 

145 PRINT" (DOWN) (DOWN) BOSLUKTAKI GAZLARA DIKKAT!" 

150 PRİNT" (DOMN) (DOWNN) LUTFEN IZAHAT BEELEYINIZ" 

1559 POKESES, gösFOKES6,SöLCLURSAD:14XZ26 

160 FORASADTDADH207: READB: FOKEA,E:NEXTEFOKES6ZZ4,F 
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EEK (565.54) ANDESA4:FDOEE1,Sİ 

165 FORASAD*2S6TDAD*471:FOKEA, PEEK (389124A) :NEXT:P 
OKEL, 

170 FOKESA&RSA, PEEK (GERSA)ORI 

175 FRINT"(CUF) HAZIR OLUNCA HERHANGI BIR DUGMEYE BAS 
INIZ" 

180 IFPEEKH(197) #64ANDPEEK (655) <OANDPEEK (56320) -127 


THEN180 
185 : 
190 


195 PRINT"(CLR) "s3 EDKESE280, 65 FOKESA296,15:DIMAZ(d4Ö):ME 
1184:J5-56XJ20 

200 PFOKESZ282, 6: POKES3287,0:FOKESS270, 24: POKEŞA:91 
ON FFOFEŞAAŞA, 240 

205 FORIsOTOZ2: FOKES4276*1X7,8:NEXTEFOKEZ52281,.2 

210 FOHES4284,Ö:F0KHES4285, 240:FOKES4277,0FÜEES427 

8, A0 TEZ ERACT THENBZ CT) EZ 

215 FÜKESZE272,21:PRINT"(CCLR) (DOWN) (RED) "TT,"  #"MID$ 
(STR$(Z7X100),2)".0O(BLU)" 

220 FRINTTAB (8) "(DOWN) GEVİYE YUEŞEK O SEORCDONN)" 
223 FORASITOBEFRIİNT,A, O S'MIİDE(STASCEACA) XL100),2) 
".DÖ"ZFPRİNTE NEXT 

250 PRINT"(DOWNN) ZONLUK DERECESİ ? IBBASAYB(CDRN) "Tel 
2g POKES61944T,ÖcTizTe TT (FEER(JS)ANDA) /4-—(FEEK ( 
JS) ANDB) /8: Ts (YANDT-1) #1 

240 İFTE#TITHENEDEEZ6194t4T1,6 


a0 SEDÖŞTETEZORTEADET#6THENS-Z0 

and NEPpdg TETSATHENNEZE Sl ef 

260 GETASSTE (FEEK (B6Z2O)ANDI6) #L6ANDASI #CHE$ CUZ) TH 
EN225 

265 PFOKESEPJP,SİSERİNT"(CLR) "s EODEESE2BO, Pi FOKESE2Bİ, İN 
Mz isÖşsEzOsGÜSURESO 

a70 PFÜKELMEX, İda XEl0PA0S Yel aReliBOSURZOS: GOSUR645 
si FOEELS9SB,O 

273 4 

280 

285 REM ANA PROGRAM 

290 ASPFEEKH (JS) TF (AANDA) <OANDREZİTHENFOEEMKX, 14 XX 
*(X20) 

293 TEF (AANDB) <OANDRZİTHENFOKHEY*X, 1d XX (X< EŞ) 

300 FOKFEWY*X, 28 TE (GAANDZ2) <OANDE #OTHENZAO 

305 IF (GAANDI) <OANDR»1THEN400 

310 TERELAND(AANDI6) SÖTHENE7Z 

315 IF(AANDI6) <ÖTHEN4Z5 
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220 GOTO290 

e 

330 ; 

asa REM DELME VE GAZ FATLAMASI 

540 AzSRXd0tMeXECEPFEEK (A) ıPsP—-1:GOSUBR675 

3AS TİFÜENOROEEDRA  SOMETHENFORAZITODZ: GOSURB7ZEOSNEXT: 
GOTO290 

3530 TERND(1) >. OĞORCE #İATHENFOREZ1TOZ: POEEA,CrB:GOS 
UB7ZEOSNEXTE RR teİ:GOTOZ9O 

sog FORB£ITODZ: FOKEA, CrB: GOSUB7ZOSNEXT: GOSUR7ES: RO 


2360 RER—lsFOKEZ4296, 48 TERS1THENFOKHESA296, iğ FOKEWt 
X,2A:GOSUR715:G60TO275 i 

365 POFHESA4275, Ba FOKESAL76, 1292 ASRXdOrMeXCsFEEE CA) 
GPESPEEK (Aâr54272) #FOKEA,Cİ 

370 POFEALSAMZA, İS FORDEOTOZ2OO0: NEXT: FOKEA,C-APFOKE 
ArZA272,PEsEsBtlO:GOTOZ60 

373 FOKEWKX, 143X220: MM-1i3PFs204 Yal aRl: GOSUR7OSSIF 
MZOTHENZ2OS 

280 GÜSURB645:60TOZ290 

385 : 

AYSO ; 

295 REM YUKARI DELME 

400 RER-isBERXKAOMeXSÜZSFEEKE (B) GFEORASİTOZ:FOKER, C—A 
sGOSURZZOSNEXT 

405 PsPtls GOSUR675:5 1FR< #1 THENZ2S9O0 

410 FORAZWKBOTO2OZESTEFEEK (A) <9THENZ2S9O 

415 NEXTgMEMteis FORC-1TOZ: GOSUR7OSS NEXT: GOSURS9O: G0 
SUB445:4060T0O290 

420 ; 

425 

470 REM DYNAMIT  SEYTANLAR 

435 JZaGeR—-isFORAZOTOZISAZ (A) -ÖOSNEXT: Bz0XdOtY*-X:A 
#PEEK(R):5TIFALE7THEN480 

440 AzeXı Bz4ÖsTEYS1THENZ2S9O 

445 AzArAOÜEPEEK (A) :FOKEA, CRİS TFCEİ4ORC-9THENPOKE 
A,CtrA : 

45Ö PFOKFESAP7E, Bı FOKEZ4276, 548 FORDEOTOZ2O0OSNEXT:DEPE 
EK (Aâ*40) 

455 IFD< #4ANDDE #NANDDI #ZANDALI9BATHENEB-E-2: FOKEA,E 
:60T0445 

460 POFEES4276, 8: GOSUR735:POKEAL54312,15 

465 İFC£ #I4ANDC< #9THENRSR—I1 

470 YY-iş GOSUR&bE6S:G0T0290 

473 : 
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480 AY(X) sl: POKES4R7Z, 40: FOKESA27â, 129:FOKESA?96,4 
: Val-X—40 

485 IFASİZTHENFDKER, 1717-740:FO0KEV, O 

490 Es0:F381D-1416-1: İl: GOSURSZO:POKEV, 1sE-39ıF-i 
3 D-—-1:G-D: 1D: GOSUBSZ0 

495 EsOıFs39:D116--40: 1-0: GOSURSZO: FOKEV, Os IFC 36 
THENS15 | i 

500 Z»J: POKER, 3: FOKEB*S4272, Bı FOKEV, 14: FORAZOTD40: 
FOKEBAZBO, BE: POKESAZBI,17 

505 FOKESE?BE, 14: POKES4296, 61 FORB-1TOS:NEXT 

510 FOKESA296, 0: POKESZE28Z, O:FORES1TOS:NEXTB,AsPOKE 
SAZBI, 0: BO: GÜTUZ6Ö 

515 IFHTHENO-0-1:60T0490 

520 FOKEV, 14: FOKHESA276, 8: FOKES4294, 15: POKENAZBI, Bi 


GÖOSŞURYOSE GOSURSASGOTOZSO 
b e 


20 TECE6THENRETURN 

SAS Hsdş EDRASETOFSTEFDETFAZLCA) SÖTHENEZO 

2040 BEkdOtMAtGıÜEPEEKE (ER) 

GAS TFCEŞDRÜZİZTHENPOEEB, CrğaHelıieafeeApRSCcl)elsAak 
(ArlislaGOTDEBES 

5g0 TFÜE1dSORCZ17TMENAZ (Ar) ziiHEl:G0OT0370 

Sö IEÜEETHENC-6x BETURN 

560 AYCAKI) <0 GOTOS7ZO 

568 TERND (1). OZANDOZ #1BTHENC 64 RETURN 

97Ü NEXTERETURN 

Za 4 

380 : 

585 REM EKRANI BASLAT 

590 PRINT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (GRYE)" 
şi FORASİTO99:FRINT"DDDDDDOD “sGNEXTEFRINT"DDDDDDD" 


993 POKEZODE, A: POKEB629S, 1s Bed00ı Ül b4: EORAZİTOZ 
sFORD-I1T040 

600 ESİNT(RND (0) XB/2) 203 TEPEEH (CE) <9S0ORFEEE (EKİ) 9 
THEN&600 

605 FOKEE, 9s FOKEEHİ, SE NEXT: BB 2601016655 NEXTE FORA 
1TOS 

610 BSINT(CRND(C1) XE40) &2e12bğ:ÜEPEEFE (CB): TEFÜE9OROENT 
HEN&610 

6lğ FOKEB,N:FOKEBrS4272,1Ö0:NEXTEFORAZOTO199: PÜKESE 
aY6OtA,OZNEXTEFEDRA-OTOZ9 

620 POKESSİAY6bYA, SE POKELİOAYA, 2ÖZNEXT 

özü FORASOTOZ:POKESİZEE7YA, ANEXTSRETURN 

630 ; 

b35 
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640 REM EKERANDAKI BILGILERİI YENİLE 

645 PRINT" (HOME) (GREN) "SPC (22) “$"MID$(STR$(Z7X100),2)".00" 
6350 ASINT(Z/1000) 5 TFAZEKEYİTHENEZK tl: GOSUB705: GOSUB7 
Oğı MEM 

655 IFM£SİITHENFOKE1024,14:FOKES5296,14:6010665 

660 FORAZ1O02ATDLO0Z2EKM: FOKEA, 2: POKEAKSAZI2,OSNEXT:P 
OKEA, 14: FOKEArS4272,0 

665 İFYS#ÖTHENFOFHELOZL,J 14: FOKESSZEOZ,O:G0T0675 

670 FORAZLOZITO1O0ZO-Y: POKEA, 19: FOKHEAt54272,ÖSNEXT: 
FOHEA,14:PFOKHEArS4272,0 i 

673 IFES1THENFOKE1064, 14:53 POKFEZSEE6,OÖ:RETURN 

680 FORB-1064T0106X*F'35 POKEB, 175 PFOKEBt54272,ÖSNEXT: 
POFEER, 14: FOKERt34272,0 

683 RETURN 

690 

690 a 

700 REM MUSİK VE DIGER ALTPROGRAMLAR 

705 POKESAZ76, 17: FORAZISTOOSTEF-—1:FOKESAZ2SŞ6,ASFOFE 
İZA, BÖLEDRBEİTDESENEXTB,A 

710 FOKHES4276, 84 FOHESAZ9AG,İğZRETURN 

718 POKESAZ/&6, 8: POKHESA276, 129 PFOKESAL7E,GİSFORDEIĞ 
TOÖSTEF-İi:FOKESAZ96,D 
720 FOKEĞSEZBİ, İsPOKESE280, asFOREZİTO7ZOSNEXTEFOKESE 
280,65NEXT 

7s FOKESAL276ö,BPFÜKES4296, 135 F0OKES2280, 9: RETURN 
730 FOKHESAAB7, 20: F0KESAZ9ŞO,BEFOKES4290, 129: FOKESAZ 
ŞO, LİEBERETURN 

Zine FOKEA, Pİ SFOKEAt40, 22: GOSUB715:FOKEA, 14: FOKEAt4 
Oy, İTİğSRETURN 

7460 

745 

90 REM EARAETERKR DATA 

Ja DATAL,IZB,164,72, 74,320, 2 0,98,64,81, 17, 146,92,44 
şdÖOçle, md, dd, kd 

760 DATASO, SO, LOR, ASRI, İSE, DO, ARL AR, A0, b, TAŞ O, O, 
126,24, 126, 24,136, 54, 126,24 

765 DATA148, 22,148, 34,126, 254,126, 24,148, 22, 148,20, 
143, 24,126, 24,148,22, 148 

770 DATAZA,I4A8, 22, 148,22, 136,62, 188,62,188,62, 188, 
22,170,170,170,170, 170 

773 DATA170,170,170,150,150,150,170,170,170,170,17 
ÖOÇJİSO,İSO,1SÖO,İSO,İS50,170,170 

780 DATA170,130,150, 150,180, 1350,1350,150,1530, 150,19 
OYĞLYOÇ,İYPOĞİPO,İNO,L19YO,İISOL,O,JO 

783 DATAO, O. OÇĞ,OJO,ÜŞ,O, 20, OOO, OOO, JO, LO, 20,20 
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yzÖŞJÜŞJÜŞÜ, ZO, ZO, 20, 20,20,20 

790 DATAZO,20,20,60,60,60,60,60,60,20,0,60,60,60,6 
Oy O, LO,OJ OOO, 255, 255, 0,00 

795 DATAZ18,118,181,153,110,93,197,65,65,87,150,85 
şiZzi,i8i,150,173,2, 106,129, 20 

800 DATA64,162,129,2,169,128,141,19,145,169,0, 155, 
136, 54,136, 54,136,34,176,34 


READY. 


PETROL KRALI: YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


1900 250 * 105 197 * 118 0 * 115 64 
120 116 x 125 129 k 130 51 « 135 ge 
140 34 x 145 937? « 150 14 * 155 7 

160 69 * 165 165 * 170 69 » 1/5 130 
180 34 » 185 ei6 * 190 ele * 195 130 
200 e3e * 205 ec47 x 219 154 x 215 89 
ee29 215 » 225 179 * 239 159 * 235 76 
240 241 x 245 59 * 250 7? x» 255 168 
263 124 «* 265 217 * 278 185 « 275 216 
e60 ele * 285 107 * 290 ige * 295 58 
300 Oo 30 * 395 i23 * 310 189 * 315 44 
3e0 105 & 325 ele * 330 ecd08 x 335 255 
340 60 * 345 17/0 * 350 150 * 355 1583 
360 106 x 365 cdd x 370 ed? » 3r 182 
380 200 * 335 218 * 330 el4 * 335 133 
400 eee « 405 190 x* 418 14 x* 415 124 
420 208 * 425 e2l3 * 430 63 x 435 ir 
440 102 * 445 v0 x 450 ıgi » 455 96 
460 244 » 465 135 * 470 sı « 475 e13 
4860 gı « 485 vr x» 490 56 * 435 155 
509 233 * 505 86 x 510 134 x* 515 238 
5e0 17 * 525 214 * 530 236 * 55 152 
540 201 x 545 144 x 550 159 * 555 224 
560 131 x 565 83 x 570 245 * 575 e19 
580 215 * 585 e4? « 590 147 * 535 32 
600 Gi x 695 izi x 610 246 * 615 15 
629 62 * 625 213 » 530 2li * 635 c1l6 
640 9? x 645 167 * 659 4 x 655 184 
660 207 x 665 i32 £ 6&rd 16 * 6r5 141 
660 23 * 685 131 * 639 elr x 635 eee 


700 2206 £ 705 196 £ 710 se * 715 205 
7e0 ıd * 725 40 * 730 181 * 735 eeo1 
748 213 745 218 * 750 239 * 755 138 
760 e26 * 7/65 128 * 770 et * 775 73 
780 G5 * 785 94 £ 790 14 » 795 115 
e08 Ti 

READY. 

Tuğla kırma 


Joystick ile kontrol ettiğiniz raketle topu yukarı atarak kırmızı, yeşil, 
turuncu ve beyaz renklerle kademeli olarak gösterilen tuğladan duvarları yı- 
kacaksınız. Her seferinde top çarptıkça bir tuğla yıkılmaktadır. Eğer birinci 
sırada tuğla yoksa, top ikinci sıraya geçmektedir. Her seferinde puan alın- 
maktadır. Her oyunda 5 adet topunuz var, her tuğla vuruşunda 5 puan alı- 
yorsunuz. İlk kademeyi tamamlayınca bir fazla top alıyorsunuz, fakat duvar 
sayısı da bir adet arttırılmaktadır. , 


1 Vİ-54296:W1-542761A1-54277 

2 FOKE Vi,iSiFOKE W1,17:FOKE A*,9 
3 H1-542731H2-54272 

4 PFOKE Hİ,OsFOKE H2,O 

14 HI-O:N-1:7-Z20:P0KE 650,255 

15 Ns1:7-3520:5C-0:Ms1 

16 FRINT"(CLR) (BLU) “sPOKE 53280, 5:PFOKE 53281,0 

17 Az25:B-1024:0-15:D0-18:E-0: BB$—" 

"  EE-55286 

18 FRINT" (HOME) (DOKN) (DOWN) (DOWN) (DOKN) (DOHN) (WHT) 
"BB$:PRINT" (RED) "BB$ 

19 PRINT" (GRN) "BB$:PRINT""BB$ 

20 IF N3z? THEN PRİNT" (HOME) (DOHN) (DON) (DOWN) (DOWN) 
(DON) (DOWN) (DOWN) (DOKN) (DOWN) (YEL ) ——————— 
“2 71020 

21 IFN>-Z THEN PRİNT" (HOME) (DOHN) (DDUN) (DOWN) (DOWN) ( 
DON) (DOWN) (DOWN) (DOWN) (DOHN ) CCYN) 
“427-1800 

22 TENİ-A THEN PRINT" (HOME) (DOWN) (DON) (DOWN) (DOWN) 
(DOUN) (DOWN) (DOKN) (DOHN) (DOHN) (ERN) 


"ıZ-2660 


235 60TO 120 

24 PRINT" (HOME) (RVS) (CYN) TOF "sPRINT" (RVS) SAYISI"M 
29 CsC-lisDsD-I 

26 İF PEEK(B1tC140X0) -64 THEN POKEBtLC140XD, 52: GOSUB 
1000: 60T065 

27 IF Ds35 THEN 65 

28 FOKE BtU440XD,8i:POKEEEYHLt4OXKD, 12: G0SURBS6 

29 FOKE B*CtH4OXD, 32 

50 IFC<İİTHENGOSURZ2000:G0TOZZ 

si GOTOZS 

5 CsCtisD-D-I 

35 IFFEEK(BtCH4O0XD) <-64THENPOK EBOYAC »XD, 32: GÖOSUB10Ö0 
O:G60T06Z 

34 IFDSSTHENO6Z 

3 FOKERHC*td4OXD,8İ: POKEEE*C*40XD, 12: G0SURB8ö 

36 POKEB*C-A4OXD, 32 


357 IFC»-28THEN GOSUB2000:G0TO2S 

328 GOTOZZ2 

59 CsC-isDEDtİ 

40 IFPEEK(BtCt40XD) <98STHENGOSUBZ3000:G0OTO2S 


41 IFPEEKH(BtU*-40XD) <98THENGOSURE000: GOTOZ2 

4? IFPFEEFH(BtC1t40X0) -64THENSÜZSC 1-5: GOSUB1000 

43 IF DsI1I9THEN 71 

44 POKE B*C4*-d4OXD,Bi:FOKEEEHL*4OXD, 12: G0SUBSE6 

45 FOKEBtC*-40XD, 32 

46 IFC<11 THENGOSURBZ2000:601048 

47 G60TO0 Z9 

48 CsÜtisDEDtİ 

49 TEFFEEKH (B#Ct40XD) <98THEN CEC-INT(CRND(C1)X2) :60SUR 
3000: G0TOZ25 

gO IFPEEK (B#0440XD) <98THEN CECHINT(RND (1) X35) :GOSUR 
35000: 6G60TOZ2 

51 IF FEEKH(BRtC1t40XD0) <64THEN SC-SCt5: 6G0OSUR1000 

52 IFD-sİSTHEN71 

5 PFOKEBRTCt40XD, Bi: PDOKEEEHC*4Ö0XD, 12: GOSUBBAâ: FOKEBt 
CtdOXD, öz 

54 IFC#P8THENGOSUB2000:G60TO39 

55 GO0T048 

56 DsD*İ 

57 IFFEEK(BtCt40XD) -64THENSC-SC 4-5: G0OSUR1O00Ö0 

58 IFFEEKH (BtOCH40XD) <98THENGCSC—-INTCRND (1) 3) : GOSUBS 
000: 60TOZ25 

59 IFFEEK (B*Ct40XD) <98THENCECHINT(RND (1) X5) :GOSUBS 
000: G0T0OZZ 

60 PDKEB*-C*40XD,81:FOKEEE*-C*-4O0XD, 12: GOSURB&: PFOKEB*t 
Ct4OXD, 32 
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6l IFDSI9THEN71 

62 G0T0S6 

63 L#INT(RND(1)X5) 

64 IFDSSTHEN&66 

65 SCSSÜtüsIFSC#HITHENHIZSC 

66 PRİNT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (RVS) CGRN) SEOR 
"EPRINTEPRINTSCEPRINTEPRINT"YUK.SEOR":SPRINTSPRINTHI 


68 IFLs? THENCSCtL:60T039 
07? İFL#OTHENC-C-L: 601048 
70 İFLsITHEN S6 
71 FOKEVİ,iSiMeMtis TFMZ£6THEN79 
72 FOKEWİ,İ7:FOKEAİ,9SFORTTE1 TO 12ÖSNEXT 
3 READAA:READBEB:İIFBB-—1THENPFOKEHİ, Öz POKEHZ, Öz: GOTO 
73 
74 POKEHİ,AA:FOKEH2,BB:POKEWİ,Ö:60TO72 
75 RESTORE:60TO 24 
79 FOR Rsi TO 15 | 
80 FRINT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (RVS) (HT) SEOR 
“EPRİNT GPRINTSC:ERİNTEPRINT"YUK. SEOR": (L.GRN) 3 (LGRN) HI 


Bi FORE-İTO SÖ:NEXTEPRİINT" (HOME) (DOWN) (DOWN) (DOWN) 
(DOWN) (RVS) (ERN) SEDR": PRİNT FRINT SCGPRINT: PRİNT 

"YUK. SKOR" PRİNT 

8 PRINT HİZNEXT:FRİNT" (HOME) (DOWN) (RVS) (RGHT) (RGHT) 
CREHT) (RGHT) CRGHT) (RGHT) (REH'T) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (REHT) (YEL) BIR OYUN DAHA(E/H) " 

BE GET A$sIF ASS S"E"ANDAS< $“H"THEN BZ 

BA IF A$-“"E" THEN 15 

85 FOKE 54779,0:“90KE 54273,Ö:POKE 54272,0:F0KE 547 
76, ÖzZEND 

86 JVSPEEK (56320) 4 FERSJVANDI 6: JV-15— (JIVAND15) 

89 IF SCSZTHEN 1035 

90 FOKEBYA*40X18, 32: POKEB*(A*1) 440X418, 32 

92 IFEFR<siö ANDIVsATHENA-A-Z:GOTO097 

93 IFFRt#16 ANDIVY-8 THENA-A*2:60TO97 

94 IFFR-i& ANDIV-4 THENA-A-I 

95 IFFR-16 AND JV-8 THEN A-A*1 

97 IF A<İÖTHEN As10 

98 IFA/28THEN A-28 

99 IF SC3HI THEN HI-SC 

100 PFRINT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (RVS) (GRN) i 
SKOR "#PRINTEPRINTSC:EFRINT: FRİ NT"YU" 3 (LERN) : (LGRN) HI 


101 FOKE BtA1t40X18,98:FOKE Bt(At1)1t40X18,98:POKE E 
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EtAt40X18,13 

102 POKE EE*(A*1) 440418, 3: RETURN 

103 FOR R-SC TO SC*299:POKE Wi,17:POKE Al,9:POKE H 
1,6B:FOKEHZ, 149:FOKE W1,0 

104 PRINT" (HOME) (DOHN) (DOWN) (DOHN) (DOWN) (DOWN) (DOWN) 
(DON) (DON) (DON) (DOWN) (DOWN) (RGHT) (RGHT) (RGHT). 
(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RVS) (GRN) YEDEK" 
105 IF R>HI THENHİSR 

106 PRINT" (HOME) (DOWN) (DOWN) (DOHN) (DOWN) (RVS) (GRN) 
SCORE" :PRINT:PRINTEPRINTEPRINT “Hİ “PRINT:PRINTHI 
107 NEXT:POKE Hİ,O:POKE H2,O0:SC-RiNSNtisIF N-5 THE 
N END 

108 IF Msi THEN 110 

109 MsM-1 

110 GOTO 16 

120 PRINT" (HOME) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RGHT) (RVS) 

150 PRINT" (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RVS) O ##XYOK ETMEXXX " 

140 PRINT"“ (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RVS) " 

150 PRINT" (HOME) (DOWN) (DON) (DON) (DOWN) (DOWN) (DOWN) 
(DOHN) (DOWN) (DOHN) (DOKN) (DOWN) (DOHN) (DOWN) (DOWN) (DOHN) 
(DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RVS) ş 

160 PRINT" (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 


(RGHT) (RGHT) (RVS) " 

170 PRINT" (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RVS) " 

180 FOR RR>1032 TO 1872 STEP 4Ö0:POKE RR,16Ö:FOKE R 
R*S4272,14:NEXT RR 

190 FOR RRs1055 TO 1895 STEP 40:POKE RR,16Ö:FOKE R 
R#54272, 14: NEXT 

230 PRINT" (HOME) (DOWN) (DOHN) (DOWN) (DOWN) (DOWN) (DOWN) 
(DOWN) (DONN) (DOWN) (DOWN) (DOVİN) (DOWN) (DOHN) (DOUN) (DOUN) 
(DON) (DOWN) (DON) (DOWN) (DOWN) (DOWN) (RGHT) KRGHT) (RGHT) 
(RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) 
(RGHT) (RGHT) (RGHT) (RGHT) (RVS)K O ADEME#"N 

250 GOTO 24 

1000 FOKE Wi,17:PO0KE A1,9 

1010 POKE HIi,43:POKE H2,52:FOR RR-1 TO 1Ö:NEXT RR 
1020 POKE Wi,ÖsFOKE Hi,ÖsPOKE H2,Ö:RETURN 

2000 FOKE W1,17:P0KE A1,9 

2010 FOKE HI,64:FOKE H2,188 

2020 POKE Wi,OsPOKE Hİi,O:POKE H2,Ö:RETURN 


3000 POFE Wi,i7/:POFKE A1,9 


32010 FOKE H1,81:FOKE H2,idlsFOR RRsi TO 1ÖSNEXT 


3020 POFE Wİ,ÖSPOKE Hİ,ÖSPFDOKE Hİ,OZRETURN 
5000 DATA 34,175, 52, 94,2, 24, 25,177 

5010 DATA 22,227, 21, 154,197,62,17, 57 

5020 DATA -1,-—1 


READY. 


TUGLA KIRMA: YAZILIM KONTROLU 
SATIR SAYISI-DEGERİ 


1 248 * 2 63 43 ce? £ 4 

14 139 * 15 186 * 16 Dr NT 
18 20 19 180 £ 28 202 * 21 
22 89 « 23 4g x 24 de * 25 
26 180 * 27 68 * 28 240 & 239 
30 26 » 3İ 4 x»32 eco * 33 
34 66 * 35 238 » 36 214 « 37 
36 9x 39 ese »* 40 16 » d1 
42 50 * 43 120 x 44 2398 » 45 
46 42 x 47 16 x 48 e30 » 43 
50 54 x 51 50 * 52 120 * 53 
54 51 x 55 15 x* 56 140 * 57 
58 66 * 59 63 x 68 147 x 61 
62 le « 63 241 » 64 ve x 65 
66 126 x 68 9x 69 I * 70 
71 69 * ve 216 » r3 e? * Vd 
75 1905 * 79 32 * 80 97? * 81 
ge 132 * 83 185 * S4 187 * 85 
86 126 * 89 240 » 90 ile * g2 
93 138 x 34 1904 x« 95 107 * 97 
98 0 * 93 249 * 100 235 * 101 
192 0 x 183 cer » 104 elg x 105 
106 123 * 107 177? * 198 164 * 109 
118 50 * 120 95 x 130 150 * 140 
1509 e29 * 160 1207 Xx 170 128 * 180 
190 93 « 230 216 * 250 54 x 100Ğ 
1010 199 « 1928 109 * 2000 7? * 2010 
ed20 liğ * 3000 78 * 3010 88 « 3020 
5000 240 * 5010 181 * 5020 eğ 

READY. 


119 
235 


211. 


zeg 
216 
178 

4? 

15 
e14 

66 
143 

56 
129 
e45 

74 
125 
118 
116 
135 
e35 
194 
149 
207 
125 
246 

r6 
i?? 
111 
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Oyun Makinası 


Bu oyun iki değişik oyunu ihtiva etmektedir. Bunlar deniz savaşı ve zig 
zag oyunlarıdır. Programı yükleyip RUN edince ekrana 5 adet seçenek 
veren bir menu çıkmaktadır. I ve 2 numarada oyunlar, 3 ve 4 numarada 
ise oyunlarda en iyi puan alan beş kişinin isimleri vardır. 5 numara oyunun 
durdurulması için kullanılıyor. 

Deniz savaşı oyununda ateşleme ünitesi ara tuşu ile aktif hale geliyor. 
Ünitenin sağa sola hareketi Z ve | tuşları ile sağlanıyor. Puanlamalar ve za- 
manlama ekranın üst kısmında verilmektedir. 

Zig zag oyunu için 2 numaralı seçeneği kullandıktan sonra ara tuşuna 
basmak gerekiyor. Ekran önce yeşil renkte ve boştur. Sonradan siyah kare- 
lerin sayıları devamlı artmaktadır. Ekranın sol üst köşesindeki yıldız şeklin- 
deki objeyi, I (yukarı), J (sola), K (sağa), M (aşağı) tuşlarını kullanarak ek- 
ranın sağ alt köşesine getirmek gerekiyor. Zamanınız kssıtlı olup yalnız 40 
saniyedir. Oyun ilerledikçe kareler arttığından ilk 10 saniye çok önemlidir. 


6 REM OYUN MAKINASI 

30 RESTÜRE:FORTEOT0D62STEFESPÜOKEBES ET, OEPDEEBESET,İ 
bi FOKHEBSAYT,OSNEXTEREZ 

40 FORTZOT062: READA: FOFHESSİT,ASNEXT 

50 FORTE0T0126 

60 READASFOKE12416tT,ASNEXT 

6S FORGHEOT06: FOKHE12726t*6H, ÖZNEXT 

70 FOKESARŞEh lü PFOKESD4276,ÖZPOKEDAL/7, dd: POKHEĞAL7 
B, 240: POKESAPBI,O 

ŞO DİMHSCİ, AHİ, AVCI) 

93 FORTZLTOZ:SFORTIZİTOSSH$(T1I,T1)5"EOMPUTER! Cr 
EXTT1, Tı Ven m48 

97 POEEVH21I,O 

100 PRİNT"(CLR) "SG POKESEABO, 7/5FÜEESE2B81,4 

120 ERINT" (DODWN) (DOMN) INPUT: 

1230 PFRINT"11 DENIZ SAVASI 

130 EFRINT"21I ZIG ZAGĞ OYUNU 

160 PFRINT"Z1I DENIZ SAVASINDA ILE BES 

180 PRINT"A1 ZIG ZAG DA ILE BES 

195 PRINT"S1 STOP 

197 FRINT"(DOWN) INFUTI1I—5 

200 IİNFUTİSIFİSİ10ORI S5 THEN2OO 
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205 IFISSTHENPRİNT" (CR) "ZEND 

210 ON I GOSUBİ000, 5000, 2500, 6500 

220 GÜT0100 

998 STOP 

999 REMX£ SEA BATTLE X 

1000 ERINT"(CLR) "s GOSUB2E00 

1050 TI$z"000000"şPOHESE2BO,4:FOKES:281,14 

1060 PRİNT" (CLR) (MHT) SEOR nO"ş TAB(C27)"Y.SEORMŞ HC, 1) 
1070 EFRINTTABCIS) "ZAMAN 60" 

1080 PRİNT" (HOME) "sEORTZEOTO1LO:PRINTENEXT 

1090 FOR Tzl TO 1ÖzPRINT"(RYS) (BLU) " 

1095 FOKE1503440XT, 160: FOKHES55775440XT,6:5NEXT 

1100 FRİNT" CRYS) 7" 

illö PFOFEEVt2İ, 14: PF0OEEVtE, lim POKEVEİ, 1275 POKEVYVE7, 
1S 

il2O XsiBÖsFOEEVt6ö, Xi POKEDAZBE,17 

1120 TIS$-<"000000":PFOME63Ö0,LAŞINZO 

1200 CZSİNT(CRND(Cİ) XP) TECEİTHENSE 4: FORU-255TMOSTEF 
—INTCRND(1) X8)*1:G0TO1220 
1210 SFS24FORUZOTOZSSSTEFİNTACEND(1)X10) 8 

1220 FOHEVESFP',JUZTETI #600Ö0THENES00 

imes PFOKES4280,0 

230 GETR$STEFR$Z""THENERİNT" (HOME) "TAR CDO)" CDOİNN) 
T1/100:60T012500 

12340 ON R GÖTOZLO0,EJOO 

1270 FÜKEVt&â,X 

1200 TFNZİTHENGOTO1700 

1Z10 FOKES4280, 24 

320 NEXTU 

IBRO FÜKEVTSP',OzGOTO1 200 

1499 REM &* ATESLEME X 

19500 

1510 AYSF0O0SNsİsFOKEVrEZ2İ, lis FOKEVTO,X 

1330 G0T01270 

1600 SizlÖrTFPEZETHENS1:30 

16,10 NEOSAYZEOPDEEVE21,14 

1620 POKE34276, 129: FOKEJŞA4272, 78: POKES42725, 24 

1680 İFSPSETHENZ—-40:FOKEV*Z,0 

1653 İFSPSATHENZ>4l:FOKEV-Z,O 

1640 FORIZİTOSOO: NEXT: POHEV*SP,ÖZPOKEV*Z, 27-38 

1650 5-91S51:5PRINT" (HOME) "TAB(8)S 

1660 FOKES4276, 0:G0T01200 

1700 PFsFEEE(VESO) gTFFESP$H1THENİ1 600 

1710 POKEV$Sİ,JAYSIAYZAY—Z: TFAYSSOTHENFOKHEVE2İ,İ4sN:0 
:G0TU1 220 


195 


1740 POKES4280, 15:G60TO1320 

2298 PRINT" (HOME) “:STOF 

2299 REM XOYUN BASLANGICI X 

2300 POKE2040,13:FOKE?O41,14 

2320 FORTS1TOZ:FOKEZO414T, 1934T:NEXT:FOKEV*23,4:P0 

KER9V,6 

2150 POKES3780, 10: FOKES3281,6 

2260 PRINTTAB(10)"“(RVS) #DENIZ SAVASI» " 

2370 PRINT" (DOWN) (DOWN) (DONN) (DOKN) BIR DAKIKADA 

VURACAĞINIZ EN" i 

2280 FRINTTAB(14) “(DONN)COK GEMI “" 

2390 PRINTTAR (14) “ (DOWN) (DOWN) (DOWN) KULLANILACAK 

TUSLAR" 

2400 PRINT" (DOWN) (DDHN) (DOWN)* Z T—LEFT 
RIĞHT-* / 

2410 FRINTTAB(13) "(RVS) ARA CUBUGU—ATESLEME" 

2470 PRİNT" (DOWN) (DON) (RVS) BASLAMAK ICIN ARA 

CUBUGUNA BASINIZ 

2450 PRİNT" (RVS) *F1'EONTROL MODUNU DEGISTİRMEK ICIN 

2450 GETR$: TER$-""THENZASO 

2455 İFR$-" (BLK) “THENGOSUB2600 

2460 POKES3281,14:POKEV#21,2 

2470 FORTSOTOZ?SS:FOKEV#2, Te POKEV*Z, 187: NEXT 

2490 RETURN- 

2499 REM OYUN RUTINI SONU 

2500 Osl:b$-"SUB CHASE":FOKESA?8I,O 

2505 POKEV#21,ÖSFORTZOTO8: FOKEV#T, Öz NEXT 

2510 GÜSUBBOO0: TERS" (BLE) “THEN1000 

-2S29 RETURN 

2599 REM K#TUS/JOYSTICK DEGISIMI X 

2600 PRİNT" (CLR) BASINIZ; " 

2610 FRINT"11 JOYSTİCK ICIN" 

2670 FRINT"2I TUSLAR ICIN" 

2630 PRINT"(DOWN) (DOWN)Fİ/FZ YAZINIZ 

2640 GETR$: TER$I >" (BLE) "ANDR$< *" (OFF) “THEN 2640 

2650 RsASC(R$) 132 

2660 RETURN 

2998 STOP 

2999 REM X OYUN ICIN TUSLAR # 

3000 : 

3050 REM & JOYSTICE X 

3100 TFR$S"2"ANDX<255THENXSX43 

3105 IFASC(R$) <140ANDN< #1THENİ500 

3110 TER$" (REHT) "ANDXZOTHENX>X-3 

3150 GOTO1270 


196 


3190 REM XX TUSLAR & 

3200 IFR$-"/"ANDX<S2S5THENX-X 3 

3205 TIFR$-" "ANDNS #ITHEN1S300 

5210 TERS$S"Z"ANDX #OTHENX—X— 

Zagj0 GÖOTO1270 

4996 STÜF 

4997 ; 

4998 ; 

4999 REM X ZIG ZAG OYUNU X 

5000 PRİNT" (CLARA) “ŞLEFTS(AŞ, LZ) sG0USUR6100 

5010 ERINT"(CLR) "s FOKHESZ281, iFOKESELBO,İ. 

5020 EPRINT" (HOME) “gs FORTEİTORPOSERİNTENEXT: POEE6SO, 129P 
EEŞ427b6,:0.0 

SOZ0 FRIİNT"(RV5)" 

5040 ERINT"ZAMAN 00004 TAR(C2S) "IYI ZAMAN'Ş ACI, 
5050 POKHE1O0P4K291t40X20, 6 POKHESSLYOKEŞdAOKZO,İ 

5060 As" (DON) (DOWN) (DOMN) (DOMN) (DOWNN) CDÜMİNİ) SELMAN) 
(DOHN) (DON) (DOHNİ) (DOWN) (DOÖNİN) (DOWN) (DON) (DOWNİ (DONM) 
(DOWN) (DOWN) (DON) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWNN) 
(DOWN) (DOWN) " 

3070 XsÖyYz0 

5080 Tİ$—"000000" 

3090 FORTE1TOİDOGOSURS2OONEXT 

3100 EDROZOÖTOLE 

allO GÜSÜURSİ2O0: FOMESA276, A POKESAM/E, 

SI2O NEXTEPRINT" (HOME) "ŞLEFTSC(AS, AR) TARBCE)TI/'D0 
3125 IFTI/100540THEN&6000 

31530 GETRS IFR$—""THENS180 

İUES FOKELOHAKX-dÖOXY, EDE XİzÖOSYİZsO 

23140 XIZ(RSE"'J"ANDX 0) —(RS$E"E"ANDXL 9) 

9130 YİzE(RS$E"T'ANDY LO) —(RS-"M'ANDYE ZO) 

5172 PsPEEK(10241X4*X1i4dÖOX(CYEY1)0) 

3175 IFFSE2THENXEXtRXİ: YEYİltY:GOTO0S5180 

5177 PFOKES4276,17:5FOKESAS/E, 15 

5178 IFF-6ŞTHENS-60—(TI/100):£G0T06500 

5180 FOKELOZArXedÖOXY, BB: POKESDL9EOrX1dOKY,İ 

3190 G0TO0S100 

5199 REM XBLOKU EKRANA GECİRX 

31200 AZINT(CRND(C1)X21)5BE:INT(CRNDC(C1)X40) 

220 FOKE1OZ4AtBt4OXA, 160: POKESEZYÖOYBTAXAD, O 

3230 RETURN i 

0999 REM X#OYUN HATASIX i . i 

6000 EFRINT"(CLR) (DOWN) (DOWN) (DOWN) (DOWN) (DONN) CDDOWN) 
ZAMANINIZ DOLDU 

6010 FORTZİT01000: NEXT: 5-0 
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6020 GO0OT0&6300 

6098 STOF 

6099 REM XOYUN EURMA X 

bİ0d PFOFHESELBSO,OSFOKESZEZ2Bİ,İZ 

6110 PRİNT" (EYS) Z1IG6 ZAG OYUNU 

6İPO PRİNT" (PUR) (ORNG) (BLU) ISARETINI HAREKET ETTİREREK 
(RGHT) (ORNG) (BLU) YE AŞINIZ" 

6izÖ PRINT"(CLERN) (RVS) (DEF) (CYN) ISARETİINI GECMEYE 
CALIŞINIZ" 

6150 EFRINTTARB(16) "(DOWN) (DOWN) EULLANILACARK TUŞLAR" 
6160 FRINTTAB(C19)"(DONN) (LEFT) TI" 

6170 PRINTTABC(C18) "Jake" 

6180 FRINTTARCI9) "MM" 

6190 PRINT"'YALNIZ 40 SANIİYENİZ VAR!" 

6200 ERINT"BASLAMAK ICIN HERHANGI BIR TUSA BAŞINIZ 


.6ö2İÖ PRİNT" (DONN) (DOWN) " 
620 GETN$E TENSE" "THEN&2SO 
6290 RETURN 
6499 REM ZIG ZAG DA ILE BES 
600 Ml RO JAL e sell re paş Gri Misemmeeş 
öğl0d GOSUEBO00: TERS (BLE) "THENSOO0O 
6ğ2ü RETURN 
7999 REM ILE ON TABLOSU 
BO0OD FORUZLTOSETEH(CU,A)<STHEN GÖSURBBSOO 
göl NEXT 
8030 ERİNT"(CLR) "SEFOEESE2BO, 9 POKEME2B1, 5 
8060 FRINTTAB (10) "CUE) (RVS) (HT) "şG6$ş "TOP FİVE (LEFT) 
(DOWNİ) (DONN) (DOWN) " 
8070 FORUS1TOS:PRINT"(DONN) (BLU) "şUşTAB(C10)"(CYN)" 
HUŞ) Ş TABR(CZ'O) "ÇBLE) "şH$CU,GM) 
8080 NEXT 
BO90 FRINT"CDONN) (DOWN) (RVS) OYUN DEGISIMI ICIN 


ARA TUSUNA BASINIZ 
8100 PRINTTAB(6) "(RVS) F1” TUSU TEKRAR OYUN ICIN 


8110 FRINTTABCIS"(RVS) 7E7” OYUN SONU 

8120 GETR$ETER$E""THENBIZO 

8120 IEFR$>" "ORES" (RİK) "THENRETURN 

8140 IFR$:" (LGRN) “THENFRINT" (CLR) (NHT) ": POKESZ28Ö, 
ÖsPFOKHESZLBİ,ÖŞFOKESA4A294,OZEND 


8150 GOTOSIZO 

8499 REM YENİ ISIM 

8500 FORJ-4TOUSTEF-İ:SH(Jtİi,G) HI, :H$(JYİ, 0) H$ 
Jİ, GİENEXT 

8505 S$> STR$ (5) 3 51-B—LEN(S$) 


8510 PRİNT" (GLR) "sg POKESE280, 56 POKES3281,6 

8520 PRINT" (DON) (DOLN) (DOWN) (RVS) TEBRIKLER! 
8520 FRINT TAB(XS1) " (HOME) (DOWN) (DOMN) (DOWN) (DONN) CORNG) 
SEORUNUZ (GRN) "455 " (ORNG)' ILK BESDE" 

8540 PRINT"(CDOWN) (DOKN) (GRN) OISMINIZI YAZINIZ 

8550 INFUTH$S(U,G):H(U,M) 55 

8090 Us; 5<Öz RETURN 


9994 STOF 
9997 ; 
9998 ; 
9999 REM 


14500 RETURN 

49100 REM SFRAYT DATA 

49120 : 

50000 REM XS5HIPX 

50100 DATAO LOL, OL OL OO İŞ OOO, ÜŞ,ÜŞ,Ü 

50200 DATAO,4,O,O,AŞOŞÜŞ,EELOŞİZB, ENİ 

50X00 DATAZ,2SS, 128,127, 255, 240,127, 203, 248 
50400 DATA127, 255, 248,127, 2059, 224, İ27, 200,199 
50500 DATAO, OLD OOO OL ÜL ÜL, ÜLÜ 

50600 DATAO LOL OLOJDO OO, OLOŞ,ÜLÜŞ,Ü 

51000 REM GEMİ 

51100 DATAO,OL, OOO, O OLÜLÜ,ÜŞ,Ü 

51200 DATAO, O, O OL O, OO, AŞ 

51300 DATAO,İZ,O,JOŞJİZLOŞÖŞİZLÖLJÜŞİZLO 

51400 DATA15,255,240,51,255, 252,127, 290, 4,0, O 
51500 DATAO,O,OLOJÖOÇLO,OŞ OOO O, OLÜŞ, ÖL ÜŞ,ÜŞ,Ü 
52100 REM LAZER 

52200 DATAO,O,OÇ,OLJOJlEÇOĞOŞJİĞLĞÖ,OŞ,İĞLOŞJÜ, TO,O 
52200 DATA1S,255, 240,15, 233, 240, İS, 205, 240 
52400 DATA1S, 235, 240,15, 259, 24Ö,5€lü, li, 240 
52500 DATAOÇ,O, OOO, OL, OLJÜŞLOŞÜ,Ü 

52600 DATAO, DO, OJOLOLO, OO OOO, OLOŞJÜLÜ 

55200 DATAOÇO,O,OL,OL, OOO, OOO, OL ÜŞLÜŞÜN 
O,O 

55300 DATAO, 126,0,0,127,0,128,İ 


READY. 
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OYUN MAKINASIZ YAZILIM KONTROLU 
SATIR SAYISI-DEGER!I 


6 
60 
95 
139 
195. 
el10ğ 
1000 
1080 
1110 
1210 
1240 
1520 
1510 
1520 
1650 
1740 
e3eğ 
e360 
e4c0 
e46ğ 
2500 
2599 
2630 
2336 
3190 
3190 
3250 
4393 
5030 
5070 
5110 
5135 
51r5 
5190 
5250 
6dEd 
6110 
6160 
6200 
64993 
79939 
8068 
8100 


200 


178 
145 
195 
18 
58 


* 


kik Sik Sk SR Sk SE Sk Sk Sk Sk Si Sk Sk Sk Sk Sk Sk Sk Sk Si SE ik Sk Sk Ek Sk ik Sk kk Ek ik ik ik ik kk kk ki 


30 


Lik ik ik ik ik Sik dik. Sik. Sik Sik öik Sik ik. sik 1k Sik Sik Sk Sik Sk ökk Si Sk S4 Si Sk SE Si Si Si Sk Sk Sk Si 2k ik ik ik ik ik ik ki 


e ŞE EE YE EEE EEE EZE ZE ER 


8140 244 x 8150 -210 x 8499 d4l.x 8500 e3e 
8595 78 * 8510 202 * 8520 179 * 8530 165 
8540 90 x 8550 38 x 8590 177 x 9996 39 
94937 28 * 93338 eg * 9999 200 x 14500 218 
agıga 223 x 491c0 58 * 50000 9? x« 50190 144 
50208 78 * 50300 124 x 50400 231 x 50300 56 
50600 v x 51000 252 x 51100 2ir x 512090 38 
51300 3 * 51400 138 x 51500 97? * 52100 90 
5c20009 135 x« 52390 60 * 524008 Gi * 5c500 58 
52600 79 * 55200 210 * 55300 19 

RERDY. 

Paraşütçü 


Bu program Joystick ile port 1 çıkışından oynanmaktadır. Oyunun gaye- 
si uçaktan atılan paraşütçünün su üzerinde olan dubaların üzerine inmesidir. 
Dubalar genişliklerine göre 25, 30, 75 puan değerindedir. Oyunu zorlaştı- 
ran faktör rüzgarın hızı olmaktadır. Paraşütçüyü uçaktan atarken WS ile 
verilen rüzgarın hızına dikkat etmek gereklidir. Puanlama ekranın sol üst kö- 
şesinde veriliyor. Paraşütçünün ağırlığı ise WT ile veriliyor. Paraşütçülerin 
hepsini dubalara indirince oyun kazanılıyor. 


100 PFRINT"(LEER) (DOWN) (DOWN) (DON) (DOWN) (DOWN) "TAB(15) 
"LUTFEN BEKLEYİNİZ": JS8-56320 


110 FOR IsiT0l0l6:READ A <ÜHSCHrASNEXTİ 

1PO IF CH£ #67224 THEN FPRINT"YANLIS DATA":ZEND 
130 RESTORE 

id40 GOSUR 930 

150 A$—" (HOME)" 


160 SÜsO:TRZ10:MB-53264: XP25X248: YPeXP 1: XAZYPYHI:Y 
AzXAtI:JSEAS20:SD:12288 
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170 PR-2040:EN-52269:CD-53778:CL-194:SH-199:PL2195 
1PAZ19P:CR-5E287:5-54272 
180 GOSUB 6Z0:GOSUBZ7ÖO:FOR 1-53750 TO 53256 STEF 2 
sFOKET, INT (RND (0) #255) NEXT 
190 FOR TIsYE TO YEt14 STEPZSREAD ASPFOKETLLASNEXT 
200 GOSUR 690 
210 GOSUR 650:G0OSUR 5Z0 
2020 PFOKE EN, 254:FOKESE276, 224: POKESE258 , 35: FOKESEZ 
60,170: POKHEME, Es POKESEP6?, 50 
240 SYS 49360 

50 WSSINT(RND(O)X1O0) iz 4TEİNTORND (0) X225) 475: GOSU 
E 5EOSFOKE 49155, 11-WS 
260 POKE 49156,11-WS:GETB$: IFB$-""THEN 260 
280 D-FEEKTCD) sPOKEME, (FEEE (ME) ) OR ((PEEE (MB) ANDZ) / 
2)3PXEFEEK (XA) sPYZFEEK (YA) #21 
290 FOKEXF,JEX&POKEYF', PYa FOKEEN, 255: GOSUB8B8SO:DXEWS/ 
75 DYEWNT/200 
300 POFEXF,JEX8 FOKEYP, PYSEHTSİNT(RND (0) X20) #170 
310 PFYSBPY#DY: TEFY#HT THENGOTO 440 
320 PXSPX#DX:1IF PX#255 THEN FXz0:FOKEMB, PFEEK (ME) OR 
1 
330 IE(PX280) AND ((PEEK(MB)ANDI) <1) THEN FX1Ö:PFOK 
E YE,OsFOKEMB, FEEKE (MB) AND254 
240 TPSPFEEK(CD):£IF (TPFANDI) THEN IF(TFANDZ224) THEN I 
F FEEE(YP) 1-141 THEN 560 
350 GODTO Z00 
370 FOR 1I-S5D TO S5D*767:5READ AsFOKEL,ASNEXT 
380 PFOKEFPR, FASFOKEPR*Hİ, FL: FOKHEFRtZ2, CL: POKEFRt3, SH: 
POKEFRt4, SH 
390 IF A$-"N" THEN 410 
400 POKEFR*S, 196: FOKEFRt6, 197: FOKEFR*t7, 198 
410 POKECR, 1s FOKECRtİ,İliFOKECRE2, 183 POKECRHE,8B:FO 
KEECR-A, 5: POKECR*S, 2 
420 FOFECRt6,7:5 POHECR*7, 3: RETURN 

30 REM£XKOTU INISKX 
440 POKEFR, 200: GOSUBS50:FRINTAS" (HOME) FARASUT 
CU HEDEFI KACIRDI" 
450 FORIZİTO100Ö0:NEXT:FRINTA$: FOKEEN, 254: TRSTR-1:5 
C-SC-10 
460 FOKEMB, FEEK (MB) AND254: FOKEFR, FA: IFTR-OTHENGOTO 
480 
470 FOKE198,0:G0T0O2S0 
480 FRINTAS: GOSUBS5ZO:ERINTEPRINTSPRINTEFPRINTTAR(CIS 
)“OYUN BITTI" | 
490 FRINT£PRINT"TEKRAR OYNAMAK ICIN BIR DUGMEYE BA 
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S*gPFÜKE198,0 
300 GETR$: IFB$-"“THENSOO 
510 FOKEEN,OsFOKESZE277,ÖsPRINT"(CLR) "3 GOSÜUB7ZOÖ: 
ÖSTRİSlÖsGOTO?10 

20 REMX£XDISFLAY SCOREXX 

530 PRINT" (HOME) (HT) SEOR"S5C" (LEFT "“TARCI0) 
“PARASUTLER"TR" (LEFT) “TAB(C2Z) “YS"YS" (LEFT) "ş 
ye PRINTTAB CEO) "NT“UT"“ (LEFT) "e RETURN 

30 REMXXIYI INISLERXX 
560 FOKEZLOZJO,İ9S:FORIZİ1TDSOONEXTİ: GOSURB78BO 
070 ERINTAS" (HOME) GÖREV TAMAMLANDI 
“EFORİZİTDİ000:NEXTEERINTAS 
580 TE (TPANDEP) <EPTHENSÜESÜ KİS: G0T0610 
590 TECTPFAND&4) <64THENSÜ-SCt-50:GĞ0T0610 
600 TECTPANDIZ28) <128THENSC—-SCr75 
6lÖ FOEEME, PEEE (MB) ANDZSA4: FOKEEN, 2545 PDEEPODAO,PFASF 
OKEL9B, Oz GOTO?SO 
620 REMXXIYI SES KAYDIXX 
620 FORİZ-STOS 245 FOFET,OSNEXTE RETURN 
650 RWS1584:CRA-B427PFOR ISRW TO RW*Z9: POKEC R-T,İ 
ZGNEXTEPFOKESE2BO,OSFOKESE28S, 0 
66Ö B$-" (BLU) (RVS) 


670 FÖRİZİT0Dİ4:FRINTE$Ş:NEXTERETURN 

690 PRİNT"(CLR) "sg FORA-OTO10: READL : GOSUBS91Ö: NEXT 

700 PRINT"(DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DONN) (DOWN) 
(DOWN) (DOHN) (DOWN) (DOWN) (DOWN) "TAE(14) " (N) BASET": 
FRINT TARK(14)"CI) ORTA" 


710 FRINTTAR(14) “ (GRN) (E)USTA":POKE198,0 

720 GETB$: IFB$-""THEN 720 

730 PRINT"(CLR)" 

740 IF B$-"N"THEN FOKE 53277, 224:FOKE2045,201:POKE 

2046, 202: POKE2047, 203: RETURN 

750 IFB$S"E"THEN POKE 2045,201:PFOKE2046, 202: FOKEZ2O 
47, 205: RETURN 

760 POKE 2045, 196:FOKE?O46, 197:POKE 2047, 198:RETUR 
N 

780 FOKES,97:P0KES*1,8:POKES*S5,0: POKESt6, 240: FOKES 
424, 15:PO0KESt4,33 

790 FORIZ1T075:NEXT:POKES$4, SP:PFOKES,14Z:FOKESİ,İ 
O:POKESt4,33 

BOO FORİZİTO75: NEXT: POKES*4, 32:FOKES$İ,İZ:PFOKES14, 
3Z:FORISİ1TO75: NEXT 

810 FOKES*A, 3P:POKES, 195: POKES*1,1lö:POKES*4, 33:FOR 
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Izi TO 150 : NEXT:FOKESt4, 52 
820 FOKES, 14Z:PFOKEStİ,İZ2:PFOKESt4, 58:5FOR Isi TO 75: 
NEXT: FOKES*-4, 524FOKES, 195 
830 POKESYİ,İbLFOKES*tA4,SASFOR IsiT01iSOSNEXT: FOKHES* 
A, RETURN 
850 PFDKEES, Os FOKESHİ, 64: FOKEStİ,17:FOKES*t6, 249: P0OKE 
5t*24,15 
860 FOKES*A, 1i29:FORIZ1T0100: NEXT: FOKES*A, 128: FORI- 
1TOSOOSNEXTEFOKESt1,ÖzRETURN 
880 POKES,O:FOKES #1, 53 POKES*#S, 145: POKESt6, 245: FOKE 
5424,15:PFOKES*4,129 
890 FORİSİTOZ2S:NEXTEFÜKESt4, 128:5FORIZİTOZOO.NEXTEP 
OFEStİ,ÖsRETURN 
910 FORIZ10584*AT014781tAS5TEFP40:Tsl*-g4272.POKET,Jİ:FD 
KEET-40,6ö:F0OFET,L 
920 FORWM—1TO1ÖSNEXTWENEXTİ: RETURN 
30 1z49157 
940 READASIFAZ2S6OTHEN RETURN 
9SO FOKET,AzIizItlisGO0T0940 
960 DATA 0,0,0,0,0,Ö 
970 DATA O0,2O0,10,88,1, 22 
980 DATA 172E,I9A,IZ, A, 208,06 
990 DATA 252,1,144,758,141,2 
1000 DATAZOB,1735,16,208,41,7 
1010 DATA 208,359, 172,2, 208, 205 
1020 DATA 10,1 92,176,31,22,196 
1030 DATA 192,172, 9, 192,141,7 
1040 DATA 208,1725,16ö, 208,9, 2 
1050 DATA 141,16,208,76,71,192 
1060 DATA 141,2,208, 1735, 16,208 
1070 DATA41,253,141,16,208, 206 
1080 DATA 3,192, 208,94,1725,4 
1090 DATA 192,141, 25, 192,169,2 
1100 DATA 141,0,192,14,0,192 
1110 DATA 172,0,192,170,169,1 
1120 DATA 10,202, 208,250, 141,1 
1130 DATA 197,185,0,208,24,105 
1140 DATA 1, 1535,0, 208,176, 36 
1150 DATA 175,16, 208,45, 1,192 
1160 DATA 240,37,185,0, 208, 203 
1170 DATA 9,192,144,29, 352,187 
1180 DATA 192,155,0,208,1735,1 
1190 DATA 192,725, 239,45,16, 208 
1200 DATA 141,16,208,76,159,192 
1210 DATA 1725,16,208,123,1,192 
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1220 
1230 
1240 
1230 
126Ö 
1270 
1280 
1290 
1300 
1310 
1Z3J0 
13.30 
1330 
1360 
13570 
1380 
1290 
1400 
1410 
1420 
14250 
1440 
1480 
1460 
1470 
1480 
1490 
1500 
i910 
1520 
1520 
1540 
1550 
1560 
1370 
1580 
1390 
1600 
1610 
1620 
16X30 
1640 
1680 
1660 
1670 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


141,16,208,175,Ö0,192 
74,168, 200,152,192,5 
208,170,76,49,234,169 
299,141,15,212,169,128 
141,18, 212,175, 27, 212 
96.32,187,197,41,15 
İSS,O, 208, ?6, 52,185 
192,41,40, 24,105, 50 
141,53, 208, 96,120,169 
11,141,20,5,169,192 
141,21, 35, 88,76,120 
169,49,141,20, 5,169, 256 
0,60,Ö0, 1,2305, 128,7, 209 
224,15, 255, 240,51, 259, 248,63 
205, 252,43, 239, 202,59, 189, 220 
49,24,140,16,0,8,8, 24 
16,4,60,32,5,60,192,1 

1535, 128,0, 209,0, Ü, GÜÇLÜ 
0,60,0,0,6ÖÇ,O,O, b 

OL,0, 6, 0,0, İOZ,O, 253 
OLOLOL OL OLJÜ,OŞJÜ 
OLOL,ÜŞÜŞJOŞJ ÜL, O,Ö 

OL, OOO, OJOŞJÜ 

OLOLOLOJOŞJ İŞİDE 

7, bb,16, 15,79, 205, 230,127 
255, 235,64,0,0,64,0,0 

OLD O, OJOL O, 
OLOLOJO,OJOÇJOŞJİŞO 
ÖOÖĞOLJDLÖLJOĞJÜJÜ,O 

OOO, OL,O,OJO 
OLOLOLOL,OLÜŞ,ÜŞ,O 
OOO OL OL, OO, 
128,0,15, 240,0, Sİ, 202,0 
Sİ,204,0,bE, ZİL O, İİ, Lİ 
1, 2559, 299,7, 2090, 204, 51,250 
248,233, 203,192, Ö0,Ö,O,Ü 
O,b6,ÖL,Ü,EĞÜ,ÖŞĞİĞ 
0,0,31,128,Ö,22,128,0 
38,192,0,38,64,0, 102,64 

O, 230,96, 3,230, 76, 3,20 
96,7, 230,112,51,246,112, 52 
ZO, İ20, 127, 204, 292,0,6,140 
0,746, 235, 239, 209, 200, 200 
248,255, 259, 224, 2093, 239, 128,0 


21,85,84,26,149,84,21,149 


1680 DATA 84,21,149,84,26,149,84, 25 
1690 DATA 85,84,25,86, 164,25,86,B4 
1700 DATA 26,150,84,21,86,164,21,85 
1710 DATA 1060,21,85,100,21,85,10Ö0,21 
1720 DATA 86,164,21,85,84,0,0,0 

17250 DATA O,O,Ğ,O,D,JO,OJOÇJO 

1740 DATA O0,ĞO,ĞJO,O,O,JODJOÇJ Ğİ 

1750 DATA 5,85,80,6,149,80,6,85 

1760 DATA 80,6,853,80,6,149,80,5 

1770 DATA 149, B0,5,154, 144,5,153, 144 
1780 DATA 6,152,144,5,89,144,5,89 
1790 DATA 144,5,89,144,5,89,144,5 
1800 DATA 90,144,5,85,80,0,Ö,Ü 

1810 DATA OÇOĞ,O,D,JO,J O, Ü,Ü 

1820 DATA OÇĞ,O.0, 0, O, O 0, 255 

1830 DATA 1,85,64,1,165,64,1,101 
1840 DATA 64,1,101,64,1,101,64,1 
1850 DATA 101,64,1,101,64,1,85,64 
1860 DATA 1,90,64,1,87,64,1,9Ö 

1870 DATA 64,1,86,64,1,86,64,1 

1880 DATA 90,64,1,85,64,0,Ö0,0 

1890 DATA O,O, ÖLDÜ, O 

1900 DATA O, ODÜ ÖsO0, 0, 255 

1710 DATA OL,O,OJOĞ,OJOJOLJÜ,ÜŞÜOJOLÜOJO,O 
1920 DATA OO, O,O,O,OLO,O,O,0,.0,0,0, 0) 
1950 DATA 24,0,1,6Ö0,128,1,60,128 
1940 DATA 1,24,128,1, 255, 128,0, 60 
1950 DATA OĞO0,60,O0,O,ÖOÇ,Ü,Ü 

1960 DATA Di ÖşÜ, SOL ÜŞÜ, OLÜ 

1970 DATA , 102,0, 255 

1980 DATA a0 Öle 

1990 DATA OÇ,OÇĞOL,ÜŞ, OL O,JÜ,Ü 

2000 DATA 0,0, O, OL O OÇJOÇJÜ 

2010 DATA 0,O,OÇJO,2A,ÖOÇİLZ,4 

2020 DATA 14,204,24,51,6,24,90,5 
2030 DATA 60,192,1,189,128,112,189, e 
2040 DATA 220,255,59, 7 126,224, İ,z5 
2050 DATA 128,0,255,0,0,126,0,0 
2060 DATA 5,85,80,6,165,B8Ö,ü,1lÖl 
2070 DATA 80,6,165,80,6,85,80,6 
2080 DATA 85,80,6,165,80,5,85,80 
2090 DATA 5,90,144,5,89,80,5, 90 
2100 DATA 144,5,85,144,5,85,144,5 
2110 DATA 90,144,5,85,80,0,0,0 

2120 DATA O0,O,O0,O,ÖJÜ,Ü,Ü 
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2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
JaD0 
220 
2040 
2AJO 
2260 
2270 
22900 
290 
2A0O 


anlO 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READY. 


PARASUTCUZ 
SATIR SAYISI-DEGERİ 


99 

130 
170 
e10 
eba 
310 
350 
400 
440 
480 
520 
560 
6800 
650 
700 
740 
799 


14 
184 
ee? 


ÖLÜŞÜŞ,ÜŞÜŞ,ÜŞÜŞ,2İJ 
1,85,64,1,169,64,1,149 
64,1,169,64,1,89,64,1İ 
89,64,1,169,64,1,85,64 
İş, İO6,b4ÇŞİ,İOZ,64,I,İIO0Z 
64,1,102,64,1,102,64,1İ 
106,64,1,83,64,0,0,0 
OLD ÜL OO, O,O,O 

OO, OO OL ÜL, Aİ 
OLBİ,O,JO,İOZL,O,O,B? 
O,O,BP,OJO,BO,O,O 

BI, 0,0, BŞ ÜŞOŞ Bİ,O 
Öy—l0O5 JİO, 101,0,0, 105 
OOO, O, O, BO,Ü,Ü 
1OZLO,O, BİL, O, OÇJOŞJÜ 
OL, OL OL ÜLO,Ü 
OLOLOJÜŞLÜLÜŞJÜŞ,Aİİ 


0,70,80,220,210,160,160,16Ö0 
42,16,i,18,1,19,21,20,3,21,42 


YAZILIM KONTROLU 


* 100 eda2 * 110 e3? 
k 140 Ii? X 158 143 
* 188 28 x 190 41 
k değ ? » add 155 
* 280 44 * 230 238 
* 3eğ. 115 » 339 42 
* 370 eld » 380 ee 
x 410 197 »* 420 247 
k 450 85 * 460 153 
x 430 gı x 590 739 
* 530 207 * 540 r0 
* 570 33 x* 560 4? 
* ela 20 » 620 198 
* 668 180 * 670 ge 
* 710 78 * 20 87 
* 750 6g * 760 151 
k * 319 32 


200 30 


kik ik Sik ik ik Sk Sk ER Sk Sk ik kk kk 


120 
168 
200 
250 
300 
340 
390 
450 
470 
519 
550 
590 
630 
690 
730 
780 
820 
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830 
899 
949 
ssa 
1920 
1060 
1108 
1149 
1180 
1220 
1260 
1300 
1350 
1390 
1430 
1470 
1519 
1550 
1590 
1630 
1670 
1710 
750 
1730 
1830 
1870 
1919 
1950 
1930 
2030 
2070 
eil9 
2159 
2190 
2230 
2270 
2310 


READY. 


ER ER ME OE OE GE GE SE EE O SE ME SE SE SE SA SE Gk SE GE SE GE Ek Si Gi A Gk Ri Gk Ek ik GR RR 


8509 
919 

950 

999 

1930 
1070 
1119 
1159 
1190 
1230 
1270 
1310 
1360 
1400 
1440 
1430 
1520 
1568 
1600 
1648 
1680 
1720 
1760 
1890 
1840 
1880 
1920 
1960 
e0009 
2040 
2080 
2120 
2160 
2200 
2240 
2280 


0 RE OE OE OE OR OE ER OE OE OR SR O OR ER OR VR O SR VR EE ER RE ER RR Rk İk 


86ğ 
320 
968 
1000 
1040 
1980 
1128 
1160 
1c00 
1240 
1260 
1320 
1370 
1410 
1450 
1490 
1530 
1570 
1610 
1650 
1690 
1730 
vrr0 
1810 
1850 
1830 
1939 
1970 
e010 
2059 
2090 
2130 
e1ro 
2e19 
ce50 
ee290 


880 

938 

970 

1010 
1058 
1090 
1138 
i1r9 
iei9 
1250 
1290 
1330 
1360 
148 
1468 
1500 
1540 
1560 
1620 
1660 
1700 
1740 
1780 
1820 
1860 
1900 
1940 
i930 
e0e20 
2060 
e100 
2140 
2180 
e2e20 
ee60 
2300 


Hamburgerlerin hücumu 


Hamburgerler size hücum ediyor, zamanında ateş edip durdurmanız la- 
zım. Hamburger yemeyi sevmeyenler için iyi bir oyun. Bu oyun tuşları 
kullanarak oynanabildiği gibi, programda bir kaç satır değiştirmek suretiyle 
Joystick kullanarak da oynanabiliyor. Tuşlar kullanılırsa > işareti sağa, 

< işareti de sola gitmek için, boş karakter veren uzunca tuşta ateş et- 
mek için kullanılıyor. Eğer Joystick kullanılırsa kırmızı düğme ateş etmek 
için, kontrol koluda sağa sola hareket için kullanılıyor. Bu arada aniden hü- 
cum edip sizin canınızı alan keçap'a dikkat etmek gerekiyor. Her hambur- 
ger vuruşunuzda 100 puan alıyorsunuz. Beş tane canınız var, hepsini kaybe- 
derseniz oyun bitiyor. 

Bu oyunu Joystickle oynamak için şu satırları sonradan ilave ediniz. Ay- 
nı numaralı önceki satırların silinmesine aldırmayınız. 


110 KE— PEEK (56321) 

120 IF —(KEAND4)0THENX—X —10 
125 IF — (KEAND16)-0 THEN GOSUB 9100 
130 IF —(KEAND8) ZOTHENX—X #10 


İREM MOKKOKKOKOKOK ROKOKO ÖKK OKOKOKOKOKOK 
2 REM X HAMBURGERLERİN X 
3 REM & HUĞUMU * 
4 REM & 1984 * 
5 REM & * 
& REM KOOR OKKA MOOR MOOR 
9 FOKESZE281,1:FOKESE28O,İZ 


10 GOSUB12000 
20 GOSUB40140 
a9 GOSUB6E200O0: CO 


30 GOSUR40000 
50 GOSUBA42000 
60 GOSUBSYO 


70 POKEVt21, PEEK (V#EZ21)ORSZ 

80 PFOKEV*t8, X2:FORY2:74TO250STEFP1O0: POKEV*#9, Yi 
100 REM MAIN LOOP 

105 PRINT" (HOME) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) 
(DOWN) (DOWN) (DOWN) &DOWN) (DOWN) (DUWN) (DOWN) (DOWN) 
(DOWN) (DOWN) (DON) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) 
(DOWN) (DOWN) SC-"SC 


209 


110 FKESFEEK (56321) 

115 FOKEV*30,0 

120 IF — (KEANDA) <OTHENX-X—-1Ö 

125 IF — (KEANDI16) <ÖTHENGOSUR9?100 

130 TE — (KEAND8S) #OTHENX—X*tlÖ 

1Z1 IEX<ZOANDCSOTHENX-20 

a2 IFX-AŞANDC-1 THENX-45 

134 TIFX£<1OTHENX-2504FOKEV,X3POKEVHİ2, XEFOKEVt16,PE 
EK (V*16)AND190:0-0 

136 IFX»#2S5O0THENFOKEVt16, PEEKH(V4E16) OR6ğ;XslO0:Csi 
140 FOKEV,X:POKHEVtHİZ2,XEX15X14DX 

145 JsPEEK(VE3O) IF (JANDI17) -17THENGOSUBZ2000 

146 FOKEVHSO,Ö 

150 IFXI1I<AOANDCIÖTHENDX-—DX: GOSUBSOO 

160 IFX1I-ASANDCISITHENDX-—-DX:G0OSURESOO 

170 IFX1<STHENX15250:POKEV$tİ4,Xi:zPOFEVt16, PFEERE (Vİ 
&6)AND1Z27:C1sÖ 

180 TEX1#25ÖTHENFOKEVtİ6, PEEF(Vt16)0R128:X1-5:Ci1i51 


185 FOKEVYF14,X1 

200 IFXI-RATHENGOSUB9000 

205 TECIS1ANDXIZRBTHENGOSUB9000 

235 NEXT 

226 G0T060 

3500 REM BUN ATTACE 

301 FOKEV*Zİ,FEEK(V*Z1)0R16 

305 FORJZ1146T01182STEFS: PFOKEJ,64:FOKEJ*1,65:NEXT 

506 FORJZ1186T01222STEFPS:FOKEJ,66:FOKEJ*t1,67: NEXT 

3510 DESINT(CEÖXRND(1))*1 

320 IFDESİTHENX2-26:FOKE1146,Ö:FOKE1147,0:FOKE1186 
gÖSFDKE1187,0 

3550 IEDESPTHENX2-76:FOKE1151,0:POKE1152,Ö:POKEE1191 
sÖSFOKE1192,0 

340 TFDEZETHENX2:116:FOKE1156,Ö:FOKE1157,0:POKE119 
6, ÖZFOKE1197,0 

3550 IFDE-4THENX2-156:FOKEL1161,ÖSPFOKEİİ6L,ÖSFOKE120 
İ,OZFOKEL2O2,0 

3560 IİFDESSTHENXZ2:196:FOKE1166,ÖSPOKE1167,0Ö:FOKE1ZO 
6, OSPOKE1207,0 

570 IFDES6THENX2-256:FOKE1171,Ö:POKE1172,Ö:FOKE1Zİ 
1,ÖSPFOKE1212,0 

390 RETURN 

499 ; 

500 REM RANDOM MAN FİRE 

S10 RAECINT(CZLXRND(1))$*1)X10 
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520 RBZSINTCEXRND(1) 1) X5 

520 RETURN 

1999 REM BURGER DEATH 

2000 THZSTHtİ 

2010 POKEV$#Z21, FEEK(V*#Z1)ANDISI 

2020 POHEZO40, 2S: POKEVEPE, PEEK (V*23)O0R1 

2030 PFOKES4277,9:FOKES4278, 255 

20338 FOKEZS4276, 5255FOKES4272,1 

2040 FORJ-MSSTOOSTEF—S:FOKESA4275, 16 FORGSİTOSOS NEXT 
: NEXT 

2045 FOKES4276,0 

2030 POKEVt2Z, PEEK (V*£22) AND2S54: FOKE2040,248 
2060 FOFEV$Z21,FEEK (V*£21) 0R64 

2100 FOKEVt5,OÖsPFOKEV*7,0 

2105 FOKEV*9,0 

2110 FOFEV$#Z21, PEEK (V*Z21)ANDZ2A4AZ 

2200 PFOKEV*16,FEEK(V*16)ANDZ24Z 

2210 PFOKEV*Z21, PEEK (V*21)AND2Z9 

2220 IFTHSSTHEN15000 

2299 RETURN 

8998 : 

8999 REM MAN FIRE 

9000 FOKEVtH4,FEEK (Vr14) -4:FOKEVt6,FEEKE(Vt-14) *28 
9005 IFCIzİTHENFOKEVt16, FEEKH(V*-16)0R12 

9010 PFOKEVt21, PEEK(V#Zİ)DORIZ 

9016 FOKES427717, 96: FOKES427817,0 

9017 POKES42761t7, 8255 PFOKES427217, 57: PFOKES427217,17 
9020 FORYZZ120T0240STEFİS:PFOKEV*-5, YESFOKEVt7, YE 
9024 JsFEEK (V#ZO)AND9: IFJZ9THENGOSURBZ2000:G0T09026 
9OZ2E JEPFEEK (VEZO) ANDİ: IFJ-#STHENGOSUB2000 

9026 FDEHEVtZO,O 

9027 NEXT 

9030 POKEV$HZ21, PEEK(VW*21) AND2AZ 

9040 FOKEVt16,FEEE(V-16) AND2A4Z 

9047 POKES4276*17,532 

9050 RETURN 

9100 REM BURGER FIRE 

9110 IFX>240 THENRETURN 

9111 IFCZSITHENPOKEVH-16, PEEKE (V*16)0R2 

9112 FOKEVS2,Xt1iS:5PFOKEVHE,176 

9120 POÖKEV$Zİ, PEEK (V*#Zİ)ORZ2 

9150 FORYS&4176T08ÖSTEF 74 PFOKEV*tE,Y4 

9151 PIsPEEK (V$SÖ) SİF(PTANDI8) <18THENGOSUB9 170 
9135 NEXT 

9140 POKEV*t16. PEEKH (V*16) AND2S3 
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9150 POKEV#21, PEEK (V#21)AND2SZ 

9160 RETURN 

9170 REM SHOT BUN 

9180 SÜSÜ tr10Ö 

9185 FOKEZO44, 252: FOKES4277, 9: FÜKEES4278,0 

9186 FOKESA4272,175 POKESA272,37: PFOKES4276,17 

9187 FOREZ81T01000:NEXT: POKESA42746,Ö:POKE?OAA, 252P 
OKEV*-9,0 

9190 FOKEV#Pİ, PEEE(V#Z1)AND2Z9: PFOKEVHZO,OÖZRETURN 
11999 REM INSTRUĞCTTONS 

12000 FRINT" (CLR) T(DOMN) (DON) (DOHN) (DON) (DOMN) 
ACIKELAMA ISTIYORMUSUNUZ (Ez 

12001 GETAS$: IFA$L "E“ANDA$ >“H“THEN12001 

12007 IFAS-"H“THENRETURN 

12010 PFRINT"(CLR) (DOWN) HAMBURGERLERİN HUCUMU 
12040 PRINT" (DOWN)SIZ SON HANBURGER OLARAK ül 
12050 PFRINT"KACMANIZ GEREKIYOR YOESA MAHVOLURSUNUZ 


12060 PRINT"AYRICA KETCAFTAN KACINIZ." 

2070 FRINT“ARA CUBUGUYLA ATESLEYEREK HAMBURGERLER 

iu 

12080 PRINT"YOK ETMENİZ GEREKİYOR. " 

12185 FRINT" (DOWN) TUS KONTROLU: (TUSA BASINIZ)" 
12190 FRINT" (YEL) EZSOL *-SAG o" 

12200 GETA$: IFA$-""THEN12200 

12210 PRINT"(CLR) "s RETURN 

14998 : 

14999 REM END OF GAME 

15000 POKEV*Z1,0:PRINT" (CLR) "s FOKES4296, 15 

15001 POKES4277414,0:POKES54278*114,240 

15002 POKES4273414,8:PF0KESA4272414,147 

15010 FORİJZ1T0S0:PRINT" (HOME) (DOWN) (DOKN) (DON) (DOHN) 
(DOHN) (DOWN) (DOMN) (DOWN) (DUWN) (DOHN) (BLU) 0—Y—-U 
-N B-1-T-T—1" 

15015 FOKES4276414,17 

15020 FORGZİTOSO: NEXT 

15025 PFOKES4276*14,16 

15030 PRİNT" (HOME) (DOWN) (DOKN) (DON) (DOWN) (DOWN) (DOWN) 
(DOWN) (DOHN) (DOKN) (DOWN) (DOWN) (YEL) OYUN GITTI" 
15040 FORGZ1TOSO:NEXT: NEXT 

15045 POKES4276*14,16 

15050 PRINT" (DOWN) SKORUNZ o “şSC0;" PUANLAR" 

15060 IFSC<HITHEN15100 

15070 IFSC>HITHENHI-SC:PRINT" (DOWN) EN YUESEK PUAN SIZIN 
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15075 


15080 
15090 


15095 
15100 
15200 
15210 
15220 
15220 
40000 
40010 
40020 
40020 
40040 
40050 
40060 
40070 
EXT 
40080 
40090 
40091 
40097 
40092 
40094 
40095 
40096 
,7i 
40100 
40110 
40111 
40120 
40130 
40151 
T 
40152 
T 
40135 
40127 
40158 
40159 
40140 
40150 
251 
40160 
40161 
XT 


FORPSİTO15:GETA$: NEXT 

INPUT"ISIM GIRIN"Ş NAME$ 

PRINT" O(BLU) XXTEBRIKLERXX" 

G0T015200 

PRINT"EN YUKSEK SKOR "şHIş;"BY "ş NAME$ 
PRINT"BIR OYUN DAHA(CE/H) ?2"sAş"" 
GETAS$: IFA$< »"E"ANDA$< #"H"“THENİSZ210 
IFA$—"E"THENTH-O: SCz0:60TOZO 

END 


REM SET SCREEN 

REM COLOUR MEMORY 

FORJS55296TOSSSZö: FOKEJ,OSNEXT 
FORJ-353376T055775:POKEJ, S6 NEXT 
FORJ-55776T056295: POKEJ, 7:5 NEXT 
FORJS55418T055494STEFS: PFOKEJ, İ0:FOKEJ$İ,İÖSN 


REM SCREEN MEMORY 
FORJS1025T01062:PFOKEJ,10Ö0SNEXT 
FORJ-1065101087: PFOKEJ, 69: NEXT 
FORJZ1083TO1102: POKEJ , 68: NEXT 
FORJ-1104TO01145:POKEJ, 324128: NEXT 
FORJ—1144T012225TEFS:POKEJ, 5214128: NEXT 
FORJS12:4T01265:PFOKEJ, 35214128: NEXT 

FOKE1064, 7O0:POKE1544, 7Ö0sPOKE1105,71:PFOKE1585 


FORJS11505T01542: PFOKEJ,10Ö0:NEXT 
FORJ-13545T01562:FOKEJ,69:NEXT 
FORJ-135641T01582: POKEJ , 68: NEXT 
FORJ-11584T0O1S0S:5PFOKEJ, 3241285 NEXT 
FORJS1504TO02025: POKEJ, İÖZENEXT 
FORJ-1146T011825TEPS: FOKEJ, 644 PFOFEJ 1, 6öĞNEX 


FORJ-1186T01222STEPS:FOKEJ, 66ö:FOKEJ1t1,67:NEX 


RETURN 


REM SET USER GRAFHICS 


PRINTCHR$ (142) :POKESZ2,48:POKES56, 48:C0LR 
FOKES6354 , PEEK (56534) ANDASA:PFOFEİ ,PFEEK CU) AND 


FORI-0TOS11:POKE1417288,PEEK (1452248) : NEXT 
FOR1I-800T0800*7:PFOKET412288, FEEK (5324811) :NE 
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40162 FORI:128010128047:POKE11t12288, PEEK (5324841): 
NEXT 

40163 FOR1I:1228810122884*7:POKELI,Ö:ZNEXT 

40165 FORI-816T0816*7:PO0KE1412288, PEEK (5224811) :NE 
XT 

40170 PFOKEİL,PEEK(1)0R4 

40175 POKES6234, PEEK (56234)0R1 

40180 FOKES3272, (PEEK (53272) AND240) *12 

40190 FORI-17800T0178004-463: READA: FOEELI,ÖZNEXT 
40195 POKES3270, PEEK (53270) 0R16:FOKES5Z282,8 

40730 GOTOZ 

41000 DATAO,O,1,5,.21,21,85, 255 

41010 DATAO,O0,64,80,84,84,85,255,255,85,21,21,5,1, 
0O,Ö N 

41020 DATAZS5,B85,84,84,80,64,0,0 

41030 DATA1Z6,68,34,17,136,68,34,17 

41040 DATA17,34,68,176,17,54,68,136 

41050 DATA1,2,4,8,17,54,68,136 

41060 DATA128,64,32,16,136,6B8,34,17 

42000 REM 

42005 POKEV*#29, 195: FOKEV#23, 128 

42008 DXs10:X550:X1-540 

42010 POKEV*15,85 

42015 POKEVHİ16,ÖsPUKEV4#21, 223 

42070 FOKEV, XePOKEV*#1,196:FOKEV4-127, X3 POKEV*1Z, 1964 
37 

42025 POKEV#5,ÖzPOKEV*7,0 

42026 POKES42946,15 

42030 RETURN 

61997 : 

61998 REM SFRITE DATA 

61999 : 

42000 V-53248 

62005 B(0)-248:B(1)2249:B(2) -250:B(3)2251:B(4)5252 
GEC) 253:B(6)-254:B(7) -255 

62010 NS57: TIENSSOTHENRETURN 

62015 FORAZITONS 

62020 READSE,Mİ, M2: IFSKSOTHENFOKEV*-28, FEEK (V*-28) AN 
D2SS Pt (A 1):G0T062030 

62025 POKEV*H28, PEEK (V*28) ORZ21 (A—-1) 3 POKEV*E37,M1i:POK 
EV#38, M2 

62020 READCO: PFOKEV#HZ84A, CO: POKEZOZ9-A,B(A-1) 

52035 FORCER(A-1) X64TOB(A-1) X64*63:READO: POKEC,G:N 
EXT: NEXT 

62040 PFOKE2041, 250:PFOKEZO42,251:P0KEZ2O4Z, 251:FOKEZ? 
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OdA,ağe 

62041 FÜKEVtE2B, 243 

62045 POKEE2046, 249:FOKE2047, 254 

62050 PODKEV*46, 10: PFOKEVHA5, 12: POKEV#41, 2: POKEVMAZ, 
2EFOKEVt-40, ÖZ RETURN 

67000 DATA 1, 2, 6,8 

3005 DATAO,40,0,0,170,0,2,170,128,2, 2355, 128,10, 23 
5, 160,42 

63010 DATA170,168,42,170,168,170,190,170,170,190,1 
20170 170,170, 02,170 

3015 DATA1SZ, 105,105, 105,90,150,165,22,170,148,22 
,170,148,5,170,80 
63020 DATAL1,105,64,1,85,64,0,B5,0,0,20,0,0,0,Ü0,Ü 
463025 DATA 1, 2, 5, iz 

e DATAT,40,0,0,170,0,2,170,128,2,170,128,10,17 

, 160,42 

4303 0 DATA170,168,42,170,168,170,170,170,170,17Ö,1 
70p170 1705170 42,170 * 
65040 DATA168,47,170,168,10,170,160,2,170,128,2,17 
0,128,0,170,0 
63045 DATAO,40,0,0,0,O,OÇ,O,O,JO, OOO, ÜÇ,O,Ü 

3050 DATA 0, 2, 6, 0 
63055 DATAO, 24, OO, AŞ O ÖLÜ 0 ÖLDÜ, A, 
Z060 DATAZA,0,0,7 24,0,0,24,0,0,24,0, 0,24,0,0,24 
63063 DATAO,O,2A,O, OD, LOL, DÜŞ Eb OO, LOŞ, Ö,ÜO, 66,0 
62070 DATAO,O,O,O, 0, O, OOO, O, O, e re a o 

63075 DATA Ö , 2 ; & i 10 

635080 DATAO, 28,0,0, 14,00, 7, OO, LAL ÜŞÜ, 2BJÖOŞÜ 
63085 DATAS&6, 0,0, 28,Ö0,OŞİAL O 07 0 Öl, OO, 28 
463090 DATAO,O,54,0,O0,2B,O,O,İ4,O,O, 7.0, ÖÇ İA,O 
63095 DATAZB,O0,0,56,0,0,28,0,0, 4,0, e. 7, ÖLÜ 

62100 DATA 1 , 2 (45,6 . 

62105 DATAO,0,O, OO, O.O, Öz O, 40,Ö0,0, dap iy 

63110 DATA170,128, 10, 170, 166,8, 86, Bor 5.08,ö0, 10, 17 
Önlemi ei 

63115 DATAİZB, O, 170, O, ö, 40,0,0,0,0 hi ÖLÜŞJÜÇ,Ü,Ü 
63120. .DATAĞ, De O) Diş Ya ö vida 0, İn. OO, ö sÖÇO VE 

62125 DATA, i o e Mi i 

651 30 DATAİZ 2 A, ÖLlĞD,0, 52,8, Lu 129,0, 52,0, O,i 


63135. .DATALİZ, 4,0, 0,0 ,044,2,48 48,2,48, te 48, 0 D,3 
6140 DATAZ, İZE, 4564, 15,İ28,0,0, 8, BrÖşl,0)İ9,OŞ ÇİZ 
Aa ar 

ir. 00,0,Ö, Öğe O 48,0 
ME 


63148, DATAO, 0,0, 0,16, 1 
63150. ATA, an 6; 
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63155 DATAS,85,64,1,85,0,2,170,0,10,2358,128,10,154 
, 128,2 

63160 DATA170,O,2,İOZ,JOÇJ2A,İBA,O,O,İ6B,JÖ,Z2Tİ, 20, 
yy ZİİŞEDİ 

63165 DATAZSA, 255, PAS, ASP, LAZ, 2d, bÖ,LAZ, 20,60, 24 
ÖLÜ, GÖ, 240,0, 6Ö | 

635170 DATAZ40,0,60,160,0,40,160,0,40,BÖ0,ÖŞ,ZÜ,lO,O, 
16,0 


cn 


READY. 


HAMBURGERLERİIN HUCUMUZ YAZILIM KONTROLU 
SATIR SAYISI-DEGER!I 


1 933 #2 29 & 3 66 £ 4 66 
5 103 x 6 ge x» 9 195 » 19 ele 
20 219 x 25 201 x 30 215 50 c19 
60 ı2i x rg  * RA li » 190 ele 
195 106 « 118 214 x 115 6 * 120 r 
125 85 x 130 61 x 151 195 x ise e13 
134 189 * 136 r? & 140 191 » 145 46 
146 10 * 150 3â x 168 4e x irg eğ 
130 cer * 185 104 « 200 2j2 x 205 r3 
e35 El? x 236 58 x 390 c0 * 301 53 
305 26 * 396 30 * 310 184 * 320 200 
330 130 x 340 e55 * 350 cer * .360 e53 
37 234 * 390 124 x 499 224 * 500 66 
510 ed5 « 520 sd x 550 ic0 x 13399 cr 
2000 14/7 x 2018 202 * 2020 40 * 2030 153 
e035 93 x 2040 ed5 * 2045 g4 x 2050 203 
2060 108 x 2100 i2c9 x* 2105 13» 2110 201 
ee00 c09 £ e21l0 cör x» dce0 136 * 2egg is2 
8938 28 * 3999 201 * 3000 elli « 9005 19 
9010 103 x 9016 54 x* 3ölr ir x 9020 153 
9024 250 * 9025 ir5 x 3026 64 * 3Jöz? i? 
9030 e09 « 9040 cis * gödğr 254 * 3050 r4 
9100 155 x 3118 149 x 9İili ir x giil2 ir 
gız 56 « 9130 157 x 9151 1g » 3135 ir 
9140 220 * 3150 213 * 9160 176 * 9170 216 
9180 247 x 3185 Gö « 3i86 168 * gisr eld 
9139 160 * 113939 166 x 12000 9 * 12001 293 


12092 
12060 
12130 
14393 
15018 
15038 
15068 
15090 
15218 
48ğ10 
40050 
40030 
40034 
40110 
401531 
40138 
40168 
40165 
40130 
41018 
41050 
42008 
j3cdc5 
61333 
pedin 
62030 
6c045 
63010 
65050 
63050 
6sürd 
63030 
6zildğ 
63130 
65150 
63ird 


READY. 


kik lik ilik ilk cik ik Sik Sik Sik. Sik cik Sik Sik Sik Sik 4k Sk ik Sk ik Sk Sk SR MR ER GR ER EE EE EE ER ER 


12010 
12070 
iceğd 
159909 
15915 
15040 
15070 
15035 
15220 
40020 
40060 
40031 
40095 
401ili 
40136 
40133 
40161 
40170 
40195 
41928 
41069 

2010 
42026 
61393 
62015 
629035 
62050 
650915 
63035 
63055 
630v5 
63935 
63115 
631535 
63155 


L ikedik Siksiik kellik ikelik ik lik Sik. Sik Sik. Sik Sik Sik dik Sik Sik Sik Sik (ik ik 4k Sk Sk WE SE SE WE SE ME A ER 


1c040 
12030 
igc10 
15001 
15020 
15045 
15075 
15109 
1585 

40030 
4d00r0 
40032 
40036 
40120 
40135 
40140 
40162 
481r5 
40c50 
41038 
4c008 
4015 
4c050 
652000 
620c0 
52040 
65000 
53020 
63040 
63060 
65050 
63108 
63120 
563140 
63168 


Lik ik olik Sik Sik cik Sik Sik Sik Sik Sik Hik Sik Sik Sik Sik Sik dik dk 4k Sk Sk Sik Sk Sk Sk Sk ik Sk Sk SE Ek AR 


12059 
12185 
14493 
15092 
15025 
15050 
15080 
15200 
40099 
40040 
40080 
40093 
40190 
40130 
40137 
40150 
40163 
40130 
41990 
41048 
42005 
42020 
61997 
62005 
6225 
62041 
63005 
63025 
63045 
63065 
63085 
63105 
63125 
63145 
63165 
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Tavla 


Tavla oynamak için atılan zarı oynamak lazım, bunu bilgisayarın A'dan 
X'e kadar olan tuşlarını kullanarak yapıyoruz. Atılan zarlar ekranda görün- 
mektedir. Bilgisayar sıranız geldiğinde hangi zarı daha önce oynamanız ge- 
rektiğini belirtiyor. Kırığınız varsa Y tuşuna basarak pulu tekrar oyuna sok- 
muş oluyorsunuz. Siyah pullarla bilgisayar, simit gibi olanlarla siz oynuyorsu- 
nuz. 


10 FOKESZ3280,i:sFOKES4272,0:FOKES54273,0:FOKES4278,İ 
7:POKES4277,17:3PFOKES4276, 33 

11 FOKES5Z3281,1:FOKES47296,15 

BO W(1) 5-300: W(2) -500:W(Z)<100:W(4) -—300:5W(5) 5-500 
:W(6)-1200 

100 W(7)70:W(8) 700 

110 DIMA$(6) ,AZ(C2S) PZC12) ,OZ(12) 

120 U$-" (UP) (UF) (UF) UF) CUP) (UF) CUP) “2 D$" (DOWN) (DON) 
(DOWN) (DOWN) (DOHN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) 
(DOWN) (DOWN) " 

130 DEFFNA(O <INTOCERND (7) #1) 

140 A$(1)2"(RVS) (DOWN) (LEFT) (LEFT) (LEFT) 8 

(DOWN) (LEFT) (LEFT) (LEFT) 

150 A$(2)-"(RVS) o #(DOKN) (LEFT) (LEFT) (LEFT) 

(DOWN) (LEFT) (LEFT) (LEFT)e " 

160 A$(3)-"(RVS)4ş O (DOWN) (LEFT) (LEFT) (LEFT) 

© (DOWN) (LEFT) (LEFT) (LEFT) 8“ 

170 A$(4)-"(RVS) #(DOWN) (LEFT) (LEFT) (LEFT) (DOWN) 
(LEFT) (LEFT) (LEFT)8 «" 

180 A$(5)-"(RVS)a #(DOWN) (LEFT) (LEFT) (LEFT) w (DOWN) 
(LEFT) (LEFT) (LEFT)8 4" 

190 A$(6)-" (RVS) #(DOWN) (LEFT) (LEFT) (LEFT)8  #(DOWN) 
(LEFT) (LEFT) (LEFT)4 4" 

200 Z7$>" “sGOTO900Ö0 

500 

510 FzÖ:sBH-0:BFsO0:NH3İS:NP-15 

520 RESTORE:sFORIZ-1TO12:READAZCI) 

530 AX(25-1)--AZCI):NEXT 

540 DATAZ,O,O, ÜL Üy By Oy 3, ÖLÜ, ÜŞU 

550 FRINT" (DON) BASLAMAK ICIN ARA TUSUNA BASINIZ"; 
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557 PRINT 
570 GETAS:IFA$SI»" "THENS7O 


977 
80 
590 
600 
6lü 
620 
1000 
10O1l0 
1020 
1030 
IOS 
0 
1037 
1040 
1050 
1060 
1070 
1075 
Ö 
1080 
1090 
1100 
1105 
illÖ 
1120 


PRINT"(CLR) "“ 
PRINT" (HOME) BEN 8-SIZ ü 
GOSUB 40ÖÖ:IFF<GTHENS9O 
GÜOSUBS&0O0: GOSURS600: GOSUB6000 
GOSUBSÖ0Ö:F—1:FMz1i:1IFPF#GTHENZ000 
60T01040 
GOSUR3500 
FRINT"ZAR ICIN ARA TUSUNA BASINIZ" 
GET A$SIF A$:5" “THENİ1OZO 
FOKE 542735,40:FOR GG-1i TO 2Ö:NEXT:FOKE 54273, 


FRINT"AAAA" 

GOSUB 4ÖÖ0:K-xÖşMs2:1IF PFsü THEN M4 

FMsO: GOSUR 5500:60SUB 1510 

PFRINT "OYNAYACAGINIZ ZAR"ŞP; "2"; 

GET Â$:IF A$-""THEN 1070 

POKE SŞ4275,4Ö0:FOR GOzi TO ZÖ:NEXT:FOKE 54273, 


NSASC (Aş) —64 

IF N#26 OR N<i THEN 1050 

FRINT AŞZIF NS25 THEN 1330 

IF Ns26 THEN 1.370 

IF BHs© THEN 11dö 

GOSUR 5S$0Ö:FRINT "KIRIĞIN VAR":POKE 542735,0Ö5 


FOR GdÖsi TO SOÖOZNEXT 


1125 
1130 
1140 
1150 
1160 

das 
1170 
1180 
1190 
1200 
a1 
1210 
1220 


12350 


POKE 54275,0 

GOSUR 5600:60T0 1050 

REM 

IF AZ(N) #O THEN 118Ö 

GOSUR 550Ö05PRINT"SAHA BOS!":POKE 542735, 5045FOR 
il TO SÖÖSNEXTEFOKES42753,0 

GOTO 1130 

IF Nt#P<25 THEN 1220 

IF HISNH THEN FsO:60T0 1410 
GOSUR 5500:PFRINT"OYUNDISI'":FOKES427:,5Ö:FOR 
TO 5ÖÖSNEXT:FOKE 54275,0 

G0OT0 1130 

IF AZ.CN*P) #—-2 THEN 1750 

GOSUR 5500:FRINT"SAHAKAFALI'"SPOKE 542735,90:F 


OR GÖSİTOSOOSNEXTEPOREES42735,Ö 
1240 60TO0 1130 > 
12350 AZN) SAZ (CN) —-1: GOSUBR 5000: NENtP 
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1260 IF AZ(N) >-1 THEN 1290 

1270 AZ(CN) O 4BF-BFt1i:G0OSUR 5500 

1280 PFRINT "BENİ KIRIYORSUN":FOR Gözi TO SÖ:SPFOKE S5 
42725,405P0KE 84275,0 , 

1285 NEXT 

1290 AZN) SAZ(N) #1: MsM-ls GOSURB 5000 

300 Fsğd &TFE M£ö THEN 1030 

1310 GOTO 2000 

1330 IF BH THEN 1550 

1540 GOTO 1160 

1350 IF AZ(P)<-i THEN 1230 

1760 NzO: BHs#EH-1:60TO0 1250 

1370 IF KEsO THEN 1400 

1580 GOSURB 5SOO:SERINT"VAZ GEC!“SFOKE 542773,50:FORG 
O-1T050O0SNEXT £FOKE S4P7E,SO 

1390 GOSURB 560046010 2000 

1400 HsPFgPsg s0sKsGOTOD 1050 

14l0 IF NsP»P5 THEN 1460 

1470 NHENH-isTF NH THEN 1450 

14X50 GOSUB 5500:PRINT"“SEN KAZANDIN!" 

1440 GOSUB 5600:60T0 7000 

1450 AZN) ZAYN) -1sNs0 £G0OTO0 1290 

1460 FOR 1Is19 TO N-1 

1470 IF AZ(CI)<z0 THEN 1500 

1480 GOSUR 55004FRINT"SIRA SENDE DEGİL"şLIST 
1490 FRINT "SIRA SENDE"ŞCHR$ (11-64) :G0TO0 11730 
1500 NEXT:£GÜTO 1420 

1510 HIzgOsFOR 1-19 TO 24 

1520 IF AZ(CI) #O THEN HIsHIYAZCI) 

1530 NEXT <RETURN 

2000 REM 

2010 KEsÖ:GOSURBR 55O0O:SFRINT"'SİRA BENDE" 

2020 GOSUR 4000:5M:2 IF Fs THEN Me4 

2OZO EMsOSTIF BE£O THEN 22d0 

2040 PFIiso «&FOR Isi TO 6 

2050 IF AZ(1)<0 THEN FIzsFI-AZ(CI) 

2060 NEXT:IF PIZNF THEN Fs0:6G0T0 2220 

2070 GOSUB 4500: G0OSUR 23000 

2080 TE OM5#O THEN 2210 

>09Ö0 İFFM#ÖTHENNEF7Z (X) :G0TO2120 

2100 GOSUBSSOO0:PRINT"BEN DAHA ATAMAM": POHESA272,40 
#POKES42725,0 . 

2110 GOSUR 5600:60TO 1000 

2120 GOSUBS500:PFRINT"SAYI"ŞE; 

2130 PRINT"OYNUYORUM" ş CHR$ (644N) 


220 


2l3m FOKESAM/E,d0:FORG0OZ-1TOSOOSNEXT: FOKESA42735,0 
2ld0 AZN) SAZCN) ela GOSURSO00: NEN-P 
21lSÖ0 IFAZCN)<ITHENZ180 

2l6ö0 AZN) sÖs BHEBHtI: GOSURESO0 

2170 PRINT"“KEIRDIM!"s FORGOZ1TO0SO0: FOKESA2735, 50: FOKES 
FE, ORNEXT 

2180 AZCNISAZCNI—I1: MeM—1:G0OSURS00Ö 
2i90 EsliPsls IFMSOTHENZOZO 

2a00 GOTO1000 

0 İF FMsO THEN 2230 
TEPMELRAMTHENNEPZ (XX) :GÖOTOZ1ZO 

NA CV) sEsPıPsaıdsk:GOTO2120 

IFAZ CESA) SATHEN22B8Ö 

IFAZC2S—P) SETHENEZ7O 

GOTOZLOO 

da/0 Nel BPSRBP—1:GÖTO2120 

2aB0 İF AH CES-P) <ETHEN2E00 

DYO HPP dsEsB0OT0D 227Ö 

2200 BOŞUBASO0: TIFOMS #PMTHENE290 
GÜTUJAZÖ 

IFAH (CP) #sOTHENZ2E9O 
GOSUBSSO0ERIİNT"REN TOPLUYORUM"; 
40 EFRINT"'SAYI"ŞP 

BAM PFOKEBALIZ, 5ÖOSFORA0E1TOZOOSNEXTE FOKEZ4272,0 
NESNE iz TENFTHENEZBO 
GOSUBESOOSERIİNT"EAZANDIM! 
GOSUBESO00GOTOBOOO 

MEPLAZ CN) SAZIN) KE: GOTOZIBO 
FORIS6TDİSTEF-İ 

2AÇü TE AYCI) EDANDI #FTHENZEO7O 

24Al0 TE AYCI) COTHEN2ASO 

2420 NEXT 

2420 GOSUBRSSOOSEFRINT" YAPARIM"; 

2440 PRINTCHRS$ (641t1)ş "OYUNUM"ŞP 

2445 PFOKE 54273,50:FOR GGzi TO 50Ö:NEXTEFDKEE 54275 
0 

24AğO PslıGOTO23SO 

2000 REM 

30OX TE ETHENSOLO 

2005 GOSUBSSOOSFRINT"REN DUSUNUYORUM" 
3010 TEFMSOTHENS170 

3020 TEHISNHTHEN3500 

ZORU Es-99995EORİSITOPM: HO 

2040 UsPZCI) VW (7) XY 

3050 AZ(U) SAZC(U) is IFAZ (CUP) <1 THENS070 
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3060 HslsAY(U—P) 20: VEVAM (8) : TFUZ184PTHENV-V*#450 
3070 AY(U-P) SAY(CU-E)—İ 

3080 FORJSİTO2A: IFAYCJ) #SÖTHENZ1ZO 
3090 Ls&: İFA (J) 3—6THENL--AX(J) 

3120 VEVAW(L) —ZOÖK(L1)K (317) 

3150 NEXTJ: IFVFETHENEZV: Xs1 

3140 AYCI) SAZ) 1 

3150 IFHS1THENAX(U-F) <0 

3160 AYKU-P) SAY (CUP) #1: NEXTİ 

3170 IF KOR(COM-0) THEN3400 

3180 Ds-9999:FORI-1TO0M: Hs 

3190 UsOX(CI):V2W(7) XU 

3200 AYCU) SAZCU) #13 IFAX (U—G) SİTHENEZ20 
3210 HslsAY (JO) sÖ:V2VAY (B) 3 TFUS184#0THENVEV*450 
Z220 AYKU-0) SAY (CU-0) —1 

3230 FORJSİTOZ4: IFAX (J) ##OTHEN3270 
3240 Ls6sIFAY (CI) #-6THENL--AZ.(J) 

3260 VEVAW(L) —2O00X(L31)X (717) 

3270 NEXTJ: IFVE£DTHENDEV: Y21 

5280 AYI) SAZ) —1 

3290 IFHsİTHENAX (U-0) s0 

3300 AY(U-O) SAZ CU) #İ:ZNEXTİ 

310 OMsi?:IFDPETHENEMS12 

3400 RETURN 

3500 XsFM3 YsOM: PMSGN (FM)  ÜMSSGN (GM) 
3510 G0TOZ400 

4000 IFFMTHEN405S0 

4010 PsFNACA) sOSFNA(C6):T3Tİ 

4020 IFTI-T#İPOTHEN4040 

4030 PsPtls IFP36THENFSİ 

4040 0-041: IFGS6THENO-1 

4050 PRİNT" (HOME) (RGHT) (RGHT) (RGHT) “4 D$ŞA$(P) 5" 
(RGHT) (RGHT) (UF) (UF) “şA$CO) 

4060 IFTI-T£210THENA4020 

4070 RETURN 

4500 REM i 

4510 FMsÖs0M-0:FORIZ1T024 

4520 IFAXCI) >sOTHENA4590 

4530 IFI-F<1THENA4560 

4540 IFAY(I-P) #1THEN4560 

4550 PM3PMtLEPZ(PM) 1 

4560 IFK»OORI-0<1THENAS90 

4570 IFAX(1-0) >1THENAS90 

4580 OMsGM*1:07(0M) s1 

4590 NEXTS RETURN 
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32000 REM 

5010 B$-" (HOME) (DOWN) (DOWN) (DOWN) ":sW$" (DONN) 
(LEFT) “s TzO:GOSUBS110 

5OPO B#ER$ED$SHLEFT$(D$,B):M$—>" (UP) (LEFT) " 

5OZO TsisGOSUBS110 

5040 PRINT" (HOME) “ş D$ŞSEC(21)ş 

5050 TFBESOTHENERİINTZ$: G0TO5070 

5060 FORI-İTOBF:ERINT"e (LEFT) "ş 3 NEXT 

5070 PRINT" (HOME) "ş D$4'(DOMN) (DOWN) "şSEC(2İ); 

5080 TEBHSOTHENFRINTZ$: 60T05100 

5090 FORISITOBH:PRINT"N (LEFT) "3 NEXT 

5100 RETURN 

5110 FORIZİTDİPIVETK(P5—-I)—IXK(T20) 

5120 TEVS #NANDE #OTHENS200 

SIZ0D AŞ" «gTE (MANDI) <OTHENA$—" (RVS) (DEF) " 

SES: Aş 

5140 PFRINTJB$SFCCEXI—(126)-1)ş 

5150 IFAZ(V) <OTHEN5190 

SİLO EZPO9: TFAY (CV) FOTHENEZP15 

5170 FORJS$ITOARS(AZKVY)) 

5180 PFRINTCHR$ (E) şŞ4$$ 3 NEXT 

5190 FRINTA$ 

5M00 NEXTGRETURN 

5500 REM 

5510 EFRINT" (HOME) “ş7$757$5 7945 27$3 " (HOME) “ş s RETURN 

5600 REM 

5610 FORİZİTOPO00O0: NEXT: RETURN 

6000 REM 

46010 B$-"( O İKDOWN) (LEFT) (LEFT) (LEFT)I  İCDOWN) (LEFT) 
(LEFT) (LEFT)İ O İKDONN) (LEFT) (LEFT) (LEFT)İ O İKDOWN) (LEFT) 
(LEFT) (LEFT) İC(DOWN) (LEFT) (LEFT) (LEFT) 1 I(DOWN) (LEFT) 
(LEFT) İN 

bOZO Y$" MI (DOWN) (LEFT) (LEFT) (LEFT) 1 1 (DOWN) (LEFT) 
(LEFT) (LEFT) | 1 (DOWN) (LEFT) (LEFT) (LEFT) | 1 (DOWN) (LEFT) 
(LEFT) (LEFT) 1 1 (DOWN) (LEFT) (LEFT) (LEFT)! IK(DOWN) (LEFT) 
(LEFT) |! IT Y" 

60230 FRINT"CCLR) (DOWN) (DOWN) “sz FORIZ1TOZİI 

6040 PFRINT"(RVS) "şSFC(18)3" “şSPC(18)ş" " 

60SO NEXTEFRINT" (HOME) (DOWN) “:5J265:Kz1 

6060 GÜSUR&41304 GOSUB&6130 

6070 FRINT" “şD$ŞLEFT$(D$,9) :J-88:H2-1 

6080 GOSUB6130: GOSUB61Z04PRINT" (HOME) (DOWN) (DOWN) " 
46090 GOSUB6150: GOSUB6150:FRINTD$ 

6110 W$-" M1 (DOWN) (LEFT) (LEFT) (LEFT) | | (DOWN) (LEFT) 
(LEFT) (LEFT) 1 1 (DOWN) (LEFT) (LEFT) (LEFT) | 1 (DOWN) (LEFT) 
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(LEFT) (LEFT) 1 | (DOWMN) (LEFT) (LEFT) (LEFTDİI  ICDOWNN) 
KERPEYİLERTY İN İp YE 

620 GOSUR&4150: 60SUR6150 

6125 PRINT" (HOME) (DOWN) “şD$ŞSPC(19)5"(RVS)Y(OFE) "RETURN 
6150 FORIZITD6:FRINT"(RVS)  "ŞCHRS$C(J);ş 

6140 JeJjtEş;NEXTEPRİNT" “şe RETURN 

6150 PRİNT" CGROHT) "şs FORİIZİTOZ 

616Ö FRINTB$ŞUSŞİM$SŞU$ŞENEXTSRETURN 

7000 PRINT"(CCLR) OYUN ICIN TESEKKURLER! (DON) 
70820 PRINT"IYI OYNADINIZ " 

70350 PRINT"(DOWN) YENI OYUN? (E/H)" 

7040 GETASSTIFASZ:""THEN7040 

7050 TFAŞS»"N"THENSOO 

7060 END 

8000 PFRINT"(CLR) SAHANE! (DOHN) 

8020 PRİNT "OYUN NESELİ GELDİ" 

8030 GOTO0 7050 

9000 REM 

9Ö1lÖ PRINT CHRS$(142) PRİNT" (CLR) (DONN) "ŞTABCİZ);ş 
9020 FRINT"TAVLA(DONN) 

9060 PRİNT 

9070 FRINT"TUSLAR" 

9080 PRINT" A-X ZAR HAREKETİ" 

9100 PRINT" YY KIRILINCA" 

9110 PRINT" Z ZAR SIRASI DEĞGİSTİRMEK ICIN 
9ALO 60T0S500 


EK 1: 
KİTABIN HAZIRLANMASINDA FAYDALANILAN KAYNAKLAR 


1. Commodore User Manuel 

2. Commodore, programmers reference guide 

3. Mathematics on the commodore 64, Czes Kosniowski 

4. Personal Computing Today (Dergi) 

5. Commodore 64 games book, Clifford and Mark Ramshaw 
6. Compute! (Dergi) 

7. Your Computer (Dergi) 

8. Big K (Dergi) 

9. Comouting Internatıonal (Dersi) 

10 — Introducing Commodore 64 machıne code lan Sinclair 
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Commodore bİ 


Bu kitap Commodore 64 bilgisayarı ile bir süre çalışıp basic prog- 
ramlarını rahatlıkla yazanlar için ikinci kitap olarak hazırlanmıştır. 
Daha önce yayınlanmış olan UYGULAMALI BASIC kitabının deva- 
mı olarak da düşünülebilir. 


Kitabın ilk bölümü PEEK, POKE deyimleri kullanılarak bilgisaya- 
rın RAM tipi hafızasından nasıl faydalanıldığı, standart olmayan ka- 
rakterlerin üretilmesi ve grafik çizimi detaylı olarak ele alınmıştır. 
Spraytlar Commodore'a özgü bir grafik türü olup programların hızlı 
çalışmasını sağlamaktadır. Spraytlar, ses ve müzik konusu detaylı ola- 
rak incelenmiştir. Ayrıca matrisler konusu, denklemler setinin çözümü 
sadeleştirilerek verilmiştir. 


Kitabın ikinci bölümünde ise basic lisanında yazılı 20 adet oyun 
yer almaktadır. Bu oyunları vermekteki amaç, bilgisayara programları 
aktarırken yazılım alışkanlığı getirmek, melodi ve ses düzenini değiş- 
tirmek ve genelde yeni oyun yazmak için gereken ortamı hazırlamak 
olmaktadır. Ayrıca programları bilgisayara aktarırken yazılım kontro- 
lünde verilen değerleri dikkate alarak hatalar önlenebilir. 


Kitabımın bu baskısına, bir bölüm halinde, makina kodu bilgileri 
ilave ettim. Commodore bilgisayarı alanların çoğu BASIC lisanını öğ- 
renince, makina koduna geçmek istemektedirler. Makina kodunu öğ- 
renmek bir bakıma bilgisayarın iç yapısını öğrenmek olduğundan, iyi 
makina kodu bilen bir kişi kendisine daha fazla güven duymaktadır. 
Makina koduyla ilgili bölümde tüm kodlar verildi. Temel komutların 
açıklaması ve program içinde nasıl kullanılacağı örneklerle verildi. 


Özden Kılıçay'ın diğer kitapları: 


ya Sok. yanı) Kılıçay Pasajı No: 2 
ax: (4)3102899 Ulus- ANKARA 


. ve tic. İtd. şti. - tel: 229 36 96 - 230 80 61 - ANKARA 
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